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SEP=1 


IDENT ' 
COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ALL RIGHTS RESERVED. 


TH FTWARE 


I 
mie WITH SUCH 


THE INFORMATION IN THIS SOFTWARE IS ait 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH I 


ABSTRACT: 
ENVIRONMENT: 


* 
© 
e 
. 
o 
° 
. 
2 
. 
° 
. 
. 
‘oo 
° 

° 


-SBTTL HISTORY ; DETAILED 


; MODIFIED BY: 


v03-008 wMc000 ne Cardoza 


v03-007 wMC0001 Wayne Cardoza 


v03-006 Tenooet Trudy C. Matthews 
they are used as unsigned words. 

vO3-005 KDM54836 Kathleen D. Morse 

a mutex to wait for swap file space. 


v03-004 KDM0002 Kathleen D. Morse 
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PUPP PVT BBP BB BB BE ENN AIA II AID PI PINPOPUNIPUNINYDY 2 PO OO OO Oo 


DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
S FURNISHED UNDER A LICENSE AND MAY BE USED 
HE TERM F LICENS D 


THE ABOVE ° S_ SOFTWARE 
HEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
SON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 
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AUTHOR: PETER H. LIPMAN » CREATION DATE: 14-SEP-76 


; Woy : 24-Jul-19 
Comparison on modified page List waitlimit s 


ix trigger for dead page table scan to account for 
locked page tables in dynamic part of working set. 


hange references to working set fields in PHD so that 


Dd 
Add deadlock detection: 99 not allow process holding 
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0000 


3; DETAIL 
58 ; 


EXCEPTION WAOLE 19382-1986 99:49:0 
Added SPRTDEF. 
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PAGEF AULT = TRANSLATION NOT VALID EXCEPTION HANDLE 16-SEP-1984 00:43:02 VAX/VMS Macro V04-00 Page PA 
voe=000 DECLARATIONS ioe tS fi 90:48:08 EeYS. SRC JPAGEFAULT.MAR;1 . @ vO! 
9 ~SBTTL DECLARATIONS 
¢ 3 INCLUDE FILES: 
4 SCADEF ;CONDITIONAL ASSEMBLY DEFINITIONS 
$9 SIPLDEF SPROCESSOR PRIORITY LEVEL DEFINITIONS 
§ SIRPDEF 31/0 REQUEST PACKET DEFINITIONS 
& SPCBDEF sPROCESS CONTROL BLOCK DEFINITIONS 
68 SPHDDEF ZPROCESS HEADER DEF INTIONS 
$ SPRDEF sPROCESSOR REGISTER DEFINITIONS 
0 SPFLDEF sPAGE FILE CONTROL BLOCK DEFINITIONS 
0 71 SPFNDEF 7PFN DATA BASE DEFINITIONS 
0 SPRIDEF ;PROTECTION FIELD DEFINITIONS 
00 7 SPSLDEF ;PROCESSOR STATUS LONG WORD DEFINITIONS 
00 7% SPTEDEF 7PAGE TABLE ENTRY OFFSETS 
0 75 SRSNDEF ;RESOURCE NAME DEFINITIONS 
0 a: SSECDEF sSECTION TABLE DEFINITIONS 
0 9 7 SSSDEF sSYSTEM STATUS DEFINITIONS 
00 8 SVADEF sVIRTUAL ADDRESS VIELDS 
900 7 SWOQHDE ‘WAIT QUEUE HEADER DEFINITIONS 
009 9 SWSLDEF sWORKING SET LIST DEFINITIONS 
00 ¢ : EXTERNAL SYMBOLS: 
828 3 
0000 «BS 
999 $ : MACROS: 
0 3 
oe 
$00 0 ; EQUATED SYMBOLS: 
00092 
900 38 SOFFSET <4*6>,POSITIVE,<- 
0 94 FLTCTL,= sOFFSET TO FAULT CONTROL BITS 
000 95 FLTVA,= SOFFSET TO FAULT VIRTUAL ADDRESS 
0000 («4% FLTPC,- SOFFSET TO FAULT PC 
2009 44 FLTPSL= SOFFSET TO FAULT PSL 
St: FLICTL: 
01C FLTVA: 
020 FLTPC: 
024 FLTPSL: 
8 100 SVIELD PGF,0,<- :DEFINE PAGE FAULT CONTROL BITS 
0 101 LENVIO,=- SLENGTH VIOLA TION 
1 : PETBFLT.= [PAGE TABLE FAULT 
; : WRTACC- SREFERENCE WAS WRITE OR MODIFY 
105 ; 
6 : OFFSETS INTO I/O PACKET WHILE BEING USED AS SCRATCH STORAGE FOR CLUSTERING 
1 § SOFFSET 0,POSITIVE,<- | 
1 PTEDAT,- :MASTER PTE CONTENTS | 
1 9 SVAPTE,- MASTER PTE ADDRESS 
| SIZE_TYPE,- “RESERVED FOR SIZE AND TYPE 


— 


VA,~ :VIRTUAL ADDRESS 


cea 
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5 
VALID EXCEPTION” HANDLE 16-SEP-1984 00:4 AX/VMS Macro V04-00 Pa 
g- Sfp 1382 88: tS 9 YOYS SRCIPAGEFAULT MAR: 1 - 
- ZAST INFO 
ASTERN, - : AND PARAMETER 
GPT :PROCESS PTE CONTENT FOR GLOBAL PAGE 
PTX PTE,- [PROCESS PTE ADR FOR GLOBAL PAGE 
<CLUSTER.1>,= [DESIRED CLUSTER SIZE 
<COUNT, 1>,= [CURRENT COUNT OF PAGES 
<STATE,1>,= [SAVED PFN STATE BYTE 
<PRI,1>,- [PRIORITY OF 1/0 TRANSFE 
BAK,- [PFN BACKING STORE ADDRESS 
INC{,= :¢ OR = 1 
INC4,= 5? OR = 4 
INC512,= t+ OR = 512 
VBN,= [VIRTUAL BLOCK NUMBER 
WINDOW, = ‘WINDOW CONTROL BLOCK ADR 
FP SAV.= [SAVED FP 
<PtB shy 8>,- [SAVED PCB, PHD ADDRESS 
PHVREFC [PROCESS HEADER REFERENCE COUNT ADDRESS 
<cLu_ SCRATCH. $12,0>=  :SIZE OF THIS SCRATCH AREA 
PTEDAT: 
SVAPTE: 
S1ZE_ TYPE: 
Asi: 
ASTPRM: 
GPTX 
GPTX PTE: 
CLUSTER: 
COUNT: 
STATE: 
PRI: 
BAK 
INC]: 
INC4: 
INC5S12: 
VBN: 
WINDOW: 
PCB SAV: 
PHVREFCADR: 
CLU_SCRATCH_SIZ: 
ASSUME CLU_SCRATCH siz abt IRPSC _LENGTH 
ASSUME SIZE_TYPE Ed RP _SI2E 
ASSUME AST EQ IRPSL irs 
ASSUME ASTPRM EQ IRPSL astpen 
ASSUME PRI EQ IRP$B_PRT 
; : OWN STORAGE: 
.PSECT $$$210,LONG 


STATISTICS 
PMSSGL_FAULTS: 
PMSSGL_RDFLTS:: 


;COUNT OF PAGE FAULTS 
OBSOLETE NAME 


_ TOE 


PA( 
vO. 


ie 
PAGEF AULT = TRANSLATION NOT VALID EXCEPTION HANDLE a; tb 4 00:93:08 ie Macro v04-00 Page 3 
v04 DECLARATIONS “SEP-1984 03:45:46 SYS.SRCJPAGEFAULT.MAR; 1 (2) 
4 138 PMSSGL_PREADS: : 
00000008 4 14 ee 5 ;PAGE READS 
| 1 9 PMSSGL_PREADIO:: 
0000000C 1 -BLKL 1 31/0 REQUESTS TO READ THE PAGES 
tS § PMSSGL_PWRITES:: 
00000010 1 -BLK 1 sMODIFIED PAGES WRITTEN 
154 PMSSGL_PWRITIO:: 
00000014 1 155 . 1 31/0 REQUESTS TO WRITE THE MODIFIED PAGES 
7. ¥ $ PMSSGL_DZROFLTS:: 
00000018 14 #1 -BLKL 1 ;DEMAND ZERO PAGE FAULTS 
1 1 8 PMSSAL_TRANSFLT:: 
00000038 1 -BLKL <1@PFNSS_LOC> sPAGE FAULTS OUT OF TRANSITION STATES 
160 PMSSGL_DPTSCN:: 
0000003C 00 161 -BLKL 1 ;DEAD PAGE TABLE SCANS 
03¢ 16¢ PMSS$GL_GVALID:: 
00000040 O003C 16 -BLKL 1 ;GLOBAL VALID FAULTS 


PAGEF AULT 
v0e=000 


= TRANSLATION NOT VALID EXCEPTION” HANDLE 16-SEP-1984 00:43:02 VAX/VMS v04-00 Pa PA( 
PAGE FAULT HANDLER gr eee TER BS:tei2g PANCMES Sacre, YON TOO ae ve vo 
4 5 .SBTTL PAGE FAULT HANDLER 
oe 1 ; i++ 
4 : ; FUNCTIONAL DESCRIPTION: 
40 1 p : THIS MODULE CONTAINS THE PAGEFAULT HANDLER. IT IS ENTERED VIA A 
40 171 : TRANSLATION-NOT-VALID FAULT. AT THE TIME OF A FAULT, THE KERNEL 
4 1% > STACK CONTAINS THE FOLLOWING INFORMATION: 
rn ae ° 
P4 ee oe 
40 175: ' REASON MASK | <=> BIT 0 = ALWAYS OF 
4 126 : ee NS=NOT-VAL 1D FAULTS 
40 177: ! INVALID VIRTUAL ADDRESS ! BIT 1 - wintts viRT ADR NOT VALID 
4 178 : ee eter INDIC A Ssoc PTE NOT VALID 
040 179: 1 _PC OF FAULTING INSTRUCTION ! BIT 2 = 0 INDIC READ ACC 
60 180 5 ¢uacccecceece eocwewcneoecenenns 1 INDIC MODIFY/WRITE ACCESS 
4 : ; ! PSL OF FAULTING INSTRUCTION ! 
040 183: 
040 184 : CALLING SEQUENCE: 
04 185 ; NONE 
Seo 189 
040 1 : > INPUT PARAMETERS: 
boco 190 = 
04 191 : IMPLICIT INPUTS: 
of i Bs 
040 194 : OUTPUT PARAMETERS: 
04 195 : NONE 
04 199 : IMPLICIT OUTPUTS: 
gh ee ene 
04 00 : COMPLETION CODES: 
oie 0 : NONE 
4 : : SIDE EFFECTS: 
4 4 ; NONE 
$3 
sb 30y | 
4 3 : PRE RARBAAAAAASALLELALAZASLALELE ERLE REE EERE ERE EERE ERE EERE RE RR RRR ARERR ARRAS GS SG 
é ii : eeereeeeeeeeeere THIS ENTIRE MODULE MUST BE RESIDENT teeeeeeeeeeaeeeee 
000 18 { .PSECT $MMGSCOD,LONG 
12 : PRR RARAAAAEASAALALALALZALELALALE LEE EEE EES ERE EEE EEE ER ERE RRR RR RAR RRR RRR AAAS | 
1? : .LIST MEB 
ae 8 IPLHI: BUG -CHECK PGFIPLHL FATAL :IPL TOO HIGH FOR PAGE FAULT 
04" “LIF IDN <FATAL>,<FATAL> , .WORD BUGS_PGFIPLHI!4 


PAGEF AULT 
v04 
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Kk 5 
LID EXCEPTION HANDLE 1 “$ pI :43:0 AX/VMS Macro v04-00 Pa 7 PAC 
ter Sa PAGE TYPE 1382 88: rf 5 Yeys. SRCJPAGEFAULT.MAR; 1 - (4) vOé 


-SBTTL SYSTEM PAGE FAULT, ESTABLISH PAGE TYPE 
-ENABL LSB 
: BAD SYSTEM PAGE = PROCESS HEADER OR PAGE TABLE PAGE FOR ANOTHER PROCESS 


i THE PROCESS HEADER HAS JUST BEEN INSWAPPED (PHDSV_NOACCVIO IS SET) 
SIMPLY DISMISS THE FAULT. IN ALL OTHER CASES, REPORT~AN ACCESS VIOLATION 


: EXCEPTION. 
; IF THE PROCESS WAS OUTSWAPPED WHILE ACCESSING ITS OWN HEAD 
3 DISMISSING THE EXCEPTION WILL CAUSE THE REFERENCE TO OCCUR CRAIN, 
; BUT THIS TIME TO THE CORRECT BALANCE SLOT. 
0 : IF THE PROCESS WAS MAKING AN ILLEGAL REFERENCE TO THE HEADER OF ANOTHER 
; PROCESS, DISMISSING THE EXCEPTION WILL CAUSE THE SAME ILLEGAL REFERENCE 
; TO OCCUR AGAIN, BUT NOW WITH PHD$V_ACCVIO CLEAR, CAUSING AN ACCESS 
; VIOLATION TO BE REPORTED. 
BADSYSPAG: 
03 3605 03 €4 BBSC  #PHDSV_NOACCVIO,PHDSW_ FLAGS(RS) . 10$ ;BRANCH IF HEADER JUST INSWAPPED 
0687 «= 31 BRW ACVIOLAT AKE AN ACCESS VIOLATION 
OSF7 31 10$: BRW PGF COMPLETE :SIMPLY DISMISS THE PAGE FAULT 


; SEE IF PAGE IS A GLOBAL PAGE TABLE PAGE, OTHERWISE ERROR 


COoooooooo SSsssss 
OOOCooocoosooS COOOCOoCSoSo 


4 
a3 éPGTBL: 
00000000'EF 50 81 50 CMP RO, SGNSGL_BALSETCT ;SYSTEM BALANCE SET SLOT? 
E 19 51 BLSS §_BADSYSPAG™ [BRANCH IF 
0000' CF D1 38 CMPL Bo W"MNGSGL _MAXGPTE SLEGAL GPTE ADDRESS 
f 1 & BGEQU BADSYSPA 
52. OA 54 MOVB #WSL$C_GPGTBL,R2 :PAGE IS GLOBAL PAGE TABLE 
at 35 BRB 50$ 
5 : PAGE IS NOT SYSTEM PAGE TYPE, COULD BE GLOBAL PAGE TABLE, PROCESS PAGE TABLE 
8: + OR PROCESS HEADER PAGE 
60 NOTSYSTEM: 
50 SO 7 8F 78 00 61 ASHL SSCALE VA DIFFERENCE TO PAGE NUMBER 
55 6C AG OD 6¢ MOVL pease Ph TADDRESS OF PROCESS HEADER 
50), 9900"CF C6 6 Dive —USSMPSGLBsLOfs?.RO. PROCESS HEADER INDE 
A 8 8 64 CMPW RO, PHDSWIPHVINDEX(RS) THIS PROCESS’ HEADER? 
D 5 BNEQ  GP6T SBRANCH IF NOT, MAYBE GLOBAL PAGE TABLE 
52 08 66 MOVB  #WSL$C_PPGTBL.R2 TASSUME PROCESS PAGE TABLE 
1€ «11 6 BRB 70$ 
$3 | PAGE FAULT MONITORING ENABLED FOR THIS PROCESS 
at BGFMONI TOR: 
FFCO’ 30 te BSBW © PFMSMON SCALL THE RECORDING ROUTINE 
SE 11 4 3 BRB PGFMONITOR1 SRETURN IN LINE 
4 25 ; PAGE FAULT FOR SYSTER SPACE VIRTUAL ADDRESS 
4 06 i : R2 = FAULT LOW BITS CLEARED 
4 77 : R4 = PROCESS bch ADDRESS 


ont a 5 
PAGEF AULT = TRANSLATION NOT VALID EXCEPT! HANDLE 16-SEP- 26 AX/VMS Macro v04-00 Pa PAC 
v04 SYSTEM PAGE FAULT, ESTABLISH P ie TYPE g- fF ~}38% 88: 8: 98 SYS.S SRCIP AGEFAULT. MAR; 1 - ds 0+ 
rants 
4 SYSTEMSPACE: 
3 53 13, 09 ~#€ 4 EX zy #VASV VPN, #VASS_VPN, Re »R3 i bait "OF eh IN SYSTEM SPACE 
O'CF ; 4 UBLS wW*SW WPSOL BALBASE,R2.R ABOVE F BALANCE SET SLOTS? 
b 4D BGEG NOTSY H IF NOT SYSTEM PAGE TYPE 
52 9 F 40s MOVB sist Seren R2 er eTER PAGE 
54 'C oF ; 4 50$ MOVAL Wr HniG Ri_Sysp(B_Ré TADDRESS OF SYSTEM PCB 
55 6C AG OD 5 MOVL PCBSL_PHD(R4) RS TADDRESS OF SYSTEM PROCESS HEADER 
53 0000 DF 43 DE 6 70$: MOVAL a@WeM nACSGL SP TBASECR3I, R3° ; ADDRESS OF PAGE TABLE ENTRY 
: BRB GETPAGELOC 
0 : THIS IS A PROCESS PAGE TABLE FAULT 
S88) bec 
52 53 OOO001FF 8F CB 06 38 BICL3 #*X1FF,R3,R2 yR2 = FAULT VA 
DS 11 0068 29% BRB SYSTEMSPACE 
06D 295 
06D 296 .DSABL LSB 


PAGEF AULT - TRANSLATION NOT VALID EXCEPTION” HANDLE 1 “SEP-1984 00:43: AX/VMS Macro v04-00 Pp PA( 
voe=000 EXECEPTION ENTRY POINT = PAGE TYPE DISPA 5=SEP=1 1382 90:48:08 YeYS. SRCJPAGEFAULT.MAR; 1 — (3) vo 
p 98 .SBTTL EXECEPTION ENTRY POINT = PAGE TYPE DISPATCHER 
’ .ALIGN LONG 
MMGSPAGEF AULT: : 
a rs a AE a 
02 14AE OS 10 €D 007 4 CMPZV #PSLSV, IPL, #PSL$S nM #IPLS -ASTDEL sCHECK FAULT IPL 
84 14 OO7A a BGTR IPLHI ~ SBRANCH_[F IPL~IS TOO HIGH 
3 ppd o07¢ 6 PUSHL R SAV 
7E 30 SETIPL #iPLS_ SYNCH OCK THE DATA BASE 
98 DA OO7E MTP #IPLS$_SYNCH, s*HPh 
DD 081 08 PUSHL R :$ yee 
54 ooo D0 3 308 OV. W"SCHSGL_CURPCB.Ré iR4 ADDRESS OF PCB 
30 DD 008A 11 PUSHL RO ‘SAVE RO 
52. 1C AE OO0001FF BF CB 00 g 1 BICL3 #*X1FF.FLTVA(SP) R2 :R2 = VA OF FAULT (LOW BITS CLEAR) 
AB 19 «009 1 BLSS SYSTEMSPACE ‘BRANCH IF SYSTEM SPACE ADDRESS 
$5 6C AG 00 097 314 MOVL CBS$L_PHD(R4),RS R5 = ADDRESS OF HEADE 
9 3% aS 00 CE 0098 13 seoemensttt PPHOSO PFAFLG. PAD SW. FLAGS (RS) »PGFMONITOR ;BRANCH IF PAGE FAULT MONIT 
52 EF OQOAO 317 EXTZV BVASY -VPN #VASS_VPN,R2,R3_; VIRTUAL PAGE IN PO OR P1 SPACE 
0B 58 if E1 A> 18 BBC 1,R2,POABDR TBRANCH IF PO SPAC 
53 00D D543 DE QOA9 19 MOVAL gaat a (RSD CRGD, R3 :GET SYS VIRT ADR OF PTE FOR P1 SPACE 
05 : 31 0081 1 VALID: BRW PGF PLETE y1F VALID, JUST EXIT 
53 00C8 0543_—séODE 0084 : POADDR: MOVAL SPHOSL. B BR(R5)CR3],R3  :GET SYS VIRT ADR OF PTE FOR PO SPACE 
OBA 4 : R2 = VA (LOW BITS = PAGTYP), R3 = SVAPTE 
OOBA 8 GETPAGELOC: 
50 53 15 09 EF OOBA EXTZV #VASV_VPN,#VASS_VPN,R3,RO ; INDEX TO SPT ENTRY 
51 0000"DF 49 DE 00BF 3 HOVAL Qu "MMGSCL _ *SPTBASELROI,R1 _ {ADDRESS OF SPTE FOR PAGE TABLE 
9A «1B itd $0 BGEG PPGTBL iBR ANCH IF hae: FAULT IT 
50 63 78800000 8F CB 00C9 1 BICL3 #*CcPTES ALID HECK VAL LID A: 
0001 3¢ mM TYP1. ' PTESM_ TYPO’=:GET PTE TYPE BITS 
00D1 PTESR” PGFLVB>, (R3) RO ; os PFN/PAGE FILE VBN BITS TO RO 
DE 19 9001 4 BLSS VALID SBRANCH IF VALID 
090 $ : RO = TYP1 ! TYPO ! PGFLVB, VALID IS KNOWN TO BE OFF AT THIS POINT 
0D : R1 = SPT ENTRY ADDRESS FOR PAGE TABLE PAGE 
00 8; Re = VA (LOW BITS = PAGTY 
if 3 > R3 = SYAPTE 
0000'CF 06 00D "« B INCL  W*PMS$GL_FAULTS ;COUNT ALL THE PAGE FAULTS 
4C AS D6 Op 4g INCL  PHDSL_PAGEFLTS(RS) [COUNT PROCESS’ PAGE FAULTS 
2 Dp DA 43 PUSHL R SSAVE NEEDED VOLATILE REGISTERS 
¢ D op 45 PUSHL R 
079c «=. 30 e) 46 BSBW  MMGSFREWSLE SFREE A WORKING SET bist ENTRY 
3F 50S «ED ES 4 BLBC RO,RSRCWAIT_3 [BRANCH IF HAVE TO WAIT 
£6 ‘8 : #eeet ALL POINTS ISPATCHED TO FROM HERE MUST REMEMBER THAT 
f : : weeee OCSP) = VA (LOW BITS = PAGTYP), 4(SP) = SVAPTE 
53 O08 AE 00 6 5 : MOVL  8(SP),R3 :SVAPTE 
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9 BRW 
98 PPGTBL_2: 


TRY 


» SIGNED _WORD 
$1G 


38 DZRO_PTE_0: 
95 RSRCWAIT_3: 
9 DOL 


N 5 
OT VALID EXCEPTION HANDLE 16- 


= PAGE TYPE DISPA 


a(SP)+ 
PPGTBL_2 


DZRO 


NOTRANSIT 


: THIS IS A PAGE IN TRANSIT 
: RO = PFN, R2 = VA (LOW BI 


I 
T 


#PFNSV_LOC ,#PFNSS_LOC ,aW*PFNSAB_STATECROJ,R2 ;PAGE LOCATION 


CA$_MEASUR 


GT F 
W°PMS$AL_TRANSFLTCR2] 


NPROG, 


READ INPROG- 
R2,#0,S*#<<30001$-30000$>/2>-1 
PENLIST~ 


DZRO_PTE 


#3*4,SP 
RESOURCEWAIT 


AX/VMS Macro V04-00 
SYS.SRCJPAGEFAULT.MAR; 1 


: MUST RECHECK VALIDITY OF PAGE TABLE PAGE, SINCE FREWSLE MIGHT HAVE DISCARDED IT 


31S PAGE TABLE PAGE VALID? 
NO, SO FAULT THE PAGE TABLE 


MUST FETCH PAGE TABLE ENTRY conte TS_ AGAIN SINCE DEAD PAGE TABLE SCAN 
IN FREWSLE MIGHT HAVE DISCARDED T 


fean Fee VALID ! = 
PTESM_TYPT ! PTESM_TYP 0! 
PrEsR=per VB>, (R3);RO 


NOT: THAT VALID IS KNOWN 0. 
jFETCH bah 2 eile 


i SERAKD. PERO 
FORM R1 = 4 BIT SIGN EXTENDED VIELD LOW BIT = [YPO, SIGN = TYP1 


#PTESV TPO. W<PTESV_ TvP1¢1 <pTES TYPO>,RO.R 
BRANCH TF NOT RO ANSITION PAGE 


;COUNT VARIOUS TRANSITION FAULTS 


:ON THE FREE PAGE LIST 


P D_ERROR 
sPAGE WRITE IN PROGRESS 
PAGE READ IN PROGRESS 


RELEASEP ND- 
SIGNED _WORD READFRR- 


; SIGNED “WORD 
: : BUG. CHECK PGFLOCBAD FATAL 
“LIF ION <FATAL>,<FATAL> , .WORD 


WRITE INPROG-50000$ 
READ INPROG-30000$ 


;BAD PAGE LOCATION FIELD 
BUGS_PGFLOCBAD! 4 
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PAGEF AULT = TRANSLATION NOT VALID EXCEPTION HANDLE 16-SEP-1984 00:43:02 VAX/VMS Macro v04-00 Page 12 PAt 
v0es000 PAGE FILE, SECTION TABLE INDEX, OR GLOBA 5=-SEP-1984 90:48:98 YOYS SRCIPAGEFAULT MARS 1 . (8) | vo 
4 3. .SBTTL PAGE FILE, SECTION TABLE INDEX, OR GLOBAL PAGE 
1 404 GLOBAL PAGE, MASTER PTE VALID 
1 405 ; ASTER PTE CONTENTS (VALID, MODIFY AND PFN BITS) 
4 $ : O(SP) = PROCESS VA (LOW BITS = PAGTYP), 4(SP) = SLAVE PTE ADDRESS 
1 408 6BLVALID: | 
Q93¢ "CF 6 0130 409 INCL wePmsscl GVALID ;UPDATE GLOBAL VALID COUNTER 
5 E 7D 0134 410 MOVO iRes VA At OW BITS = PAGTYP), R3=SVAPTE 
0 DD 0137 411 PUSHL R SAVE M AST 
50 «(50 90 FF 139 aig EXTZV #PTESV_PFN,#PTESS_PFN,RO,RO ;PAGE FRAME NUMBER 
0950 30 01 F 41 BSBW MNGSMA MAREW EWSLE :MAKE A CORRING SET LIST ENTRY 
0& BA 0141 414 POPR AM<RI TRI SMASTER PTE, RO=VA, RSs SVAPTE 
O4FC 31 143 419 BRW SETSCAVEPTE :SET PROCESS’ PTE AND EXI 
0146 41 : DEMAND ZERO GLOBAL SECTION WITH PAGE FILE BACKING STORE 
0146 419 é8LDzR0_ PGFL: 
50 00400000 8F 20 0146 420 “MOVL #PTESM_TYPO,RO sADD A TYPO BIT TO THE MASTER PTE (0) 
007A 1 9160 é 1 BRW GBLDZRO :G0 JOIN COMMON CODE 
0130 4 5 | : BAD MASTER PAGE TABLE ENTRY FORMAT FOR A GLOBAL PAGE 
tt 2138 455 6BLBAD: BUG_CHECK _PGFGBLBAD FATAL ;BAD MASTER PTE FORMAT FOR GLOBAL PAGE 
0004" 0132 ad "LIF IDN <FATAL>,<FATAL> , .WORD BUGS$_PGFGBLBAD!4 
0154 637 : PAGE IS NOT A TRANSITION OR DEMAND ZERO, PAGE 
0154 428 : RO = LOW 23 BITS OF PTE AND TYPE BITS (PAGE FILE VBN GPTX OR STX) 
0154 429 ; R1_= RESULT OF EXTV ABOVE, CONDITION CODES | sel FROM EXT 
O13 ‘ 0 : O(SP) = VA (LOW BITS = PAGTYP), 4(SP) = SVAPTE 
0154 43¢ NOTRANSITION: 
19 0154 43 BLSS NOTGLOBAL BRANCH IF TYP1 SET, NOT A GLOBAL PAGE 
0050 16 €5 0156 434 BBCC 3—_ #PTE SV ,10$ AVE JUST GLOBAL PAGE TABLE INDEX 
53. 0000'DF40 DE 015A 435 10$:  MOVAL SU-ARCSGL POBTBASEEROJ, R3* LEN DRESS OF MASTE 
51 63 OA 9 0160 436 ROTL aes SP TESY _OWN-WSLS$V_PAGTYP>>, (R3),R1 ;OWNER FIELD TO LOW BITS 
0164 438 : MASTER PTE OWNER FIELD CONTAINS THE VALUE PFNSC_GLOBAL OR PFNSC_GBLWRT 
6— 51  F18F 8B 0164 440° BICB3 #*C<WSLSM_ PAGTYP>, R1,(SP)_;SET PAGE TYPE FIELD 
50 63 78800000 BF CB 0169 441 BICL #*CCPTESR THE VALID BIT 
0171 44g PTESM YPT. : itt ypO | = :THE PTE TYPE BITS 
oir 44 PTESM PEFLVB> (R3). “RO SAND’ PAGE FILE VBN STX 
BD 19 0171 444 BLSS GBL VAC 10 iBRANCH IF RTE 1§ VALID 
D1 «13 0173 445 BEQL § GBLDZR [MASTER PTE me! SE MAND ZERO 
51 50 OS 16 EE 1% 446 EXTV #PTESV_ eit #<PTESV_TYP1+1-PTESV_TYPO>,RO.R1 
17A 448 + R1 = 0 IF TYP1 AND TYPO ARE BOTH ZERO 
17A 449 : R1 = NEGATIVE IF TYP1 IS SET 
17A 450 ; R1<O0> = 1 IF TYPO IS 
8313 OIA aa 
D2. 14 7c i38 BGTR  GBLBAD ‘BRANCH IF GLOBAL AGAIN, ERROR 
Ze 439 : MASTER PAGE TABLE ENTRY IS A SECTION OR PAGE FILE ADDRESS 


BEQL TRANSITION ;BRANCH IF GLOBAL TRANSITION 
| 


D 6 
PAGEFAULT = TRANSLATION NOT VALID EXCEPTION HANDLE 1 =SEP-1984 90:43:02 AX/VMS Macro v04-00 Page 13 
v04 PAGE FILE, SECTION TABLE INDEX, OR GLOBA 5=SEP-1984 03:45: SYS.SRCJPAGEFAULT.MAR; 1 (6) 
08 51 «£9 Ize 457 20$:  BLBC  R1,308 sBRANCH IF PAGE FILE 
45 50 11 £0 18 4 ; BBS #PTESV_DZRO,RO,GBLDZRO BRANCH IF DEMAND ZERO GLOBAL SECTION 
0650 10 = €0 3 459 BBS WPTESV-CRF,RO,GBLCRF | :BRANCH IF COPY ON REFERENCE 
183 461 : GLOBAL SECTION (NOT CRF OR DZRO) OR PAGE FILE BACKING STORE ADR 
50 04 AE dO 0189 188 $0$:  MOVL 4(SP),RO ;SAVE SLAVE PTE ADR INDICATING GLOBAL 
11 D 464 BRB GBLNOTRESIDENT ; 
or F 466 : GLOBAL COPY ON REFERENCE PAGE 
18F 467: 
oi F 468 GBLCRF : 
6 94 018F 46 CLRB (SP) :SAY PAGE IS PROCESS PAGE 
50 53 pO 0191 470 MOVL  R3,RO ‘MASTER PTE ADDRESS 
43 0194 47 BRB GBLNOTRESIDENT : 


PAGEF AULT = TRANSLATION NOT VALID EXCEPTION wane — 1 P=1984 00:43:0 AX/VMS Macro v04-00 Page 14 PAI 
voe=000 PAGE NOT RESIDENT, abeve READ REQUEST g-8 set} 80:48: § YOYS. SRCIPAGEFAULT MARS 1 ve wD vo. 
196 473 .SBTTL PAGE NOT RESIDENT, QUEUE A READ REQUEST 
1 47% -ENABL LSB 
1 475 
13 $78 3 
6 f : MUST WAIT FOR AN 1/0 REQUEST PACKET 
13 ra [RPWAIT_3: 
8 BA 196 480 PoP HOMER :CLEAN OFF 1 LONG WORD 
51 198 481 MOVZBL anENs, NP YNMEM., R1 [NON PAGED DYNAMIC MEMORY RESOURCE NUMBER 
BA 198 4 ¢ 10$: POPR #*M [CLEAN OFF 2 LONG WOR 
ore 1 190 4 : BRW RESOURCEWAIT [WAIT FOR RESOURCE IN R1 
143 485 : THIS PAGE READ WOULD EXCEED THIS PROCESS’ DIRECT 1/0 QUOTA. 
1A0 486 ; WAIT UNTIL SOME OF HIS OUTSTANDING I/O COMPLETES. 
1A 488 BIOCNTWAIT.2 
51 01 9A O1A0 489 novzé #RSNS_ASTWAIT,R1 ZAST WAIT RESOURCE NUMBER 
F6 11 «O1A3 =490 10$ 
01A5 491 
01A5 49¢ .DSABL LSB 
O1A5 49 
O1A5 = 4494 gw 
Q1A5 495 ; NO_1/0 PACKETS ON THE SIDE LIST, MUST ALLOCATE ONE FROM NON-PAGED POOL 
O1Ad 496 O(SP) = PLACE TO STORE ADDRESS OF PACKET, TOTAL OF 3 LONG WORDS ON STACK 
O1A3 498 GET_IRP: 
6€ 50 DO O1A5 499 RO, (SP) ySAVE REGISTER 
51 C4 BF 9A O18 500 MOVZBL #IRP$C_LENGTH,R1 [SIZE OF 1/0 PACKET 
FES1" 30 O1AC 501 EXESALONONPAGED SALLOCATE THE PACKET 
64 50 £9 O1AF 208 BLBC ~—_—«RO, I 13 ‘BRANCH IF NONE AVAILABLE 
01 BA O01B2 5 #°R<RO> ;RESTORE SAVED REGISTER 
52. DD 0184 ; 4 PUSHL R2 :1/0 PACKET ADDRESS 
6A 11 0186 305 BRB GOT_IRP [REJOIN THE MAIN FLOW 
0188 209 : MUST WAIT FOR A FREE PAGE, 5 LONG WORDS ON STACK, FIRST 2 ARE GARBAGE 
O18 208 : 8(SP) = 1/0 REQUEST PACKET ADDRESS TO BE DEALLOCATED, LAST 2 ARE SCRATCH 
188 $10 FREPAGWAIT 5: 
03 BA 018 11 POPR #*M<RO, R1> ;SCRATCH RO,R1 
07 BA O1BA 318 POPR #*M<RO.R1,R2> 71/0 PACK CKET ADDRESS TO RO 
08 AO C4 er A O1Bc 51 MOVZBL #IRPS$C LENGTH IRP$SW_SIZE(RO) ;SET PACKET SIZE OND CLEAR TYPE 
FE3C' 30 gici 14 BSBW  EXESDEANONPAGED SAND DEALLOCATE IT 
0180 «= 31 1e4 13 BRW EREEPAGEUAT? 
1c 1? ; DEMAND ZERO PROCESS SECTION PAGE 
1€7 8 bzR0_ PROC_SEC: 
0364 31 494 BR BRw DZRO_PTE 
1CA ‘ + DEMAND ZERO GLOBAL SECTION PAGE 
1CA : 
1CA 4 G6BLDZRO: 
51 63 p0 1CA 5 MOVL  (R3),R1 ;MASTER PTE CONTENTS 
0362 31 1¢D Fy BRW DZRO_ CBL SEC 
109 B PAGE 1S NOT A GL BAL PAGE 
1D > R1<31>=TYP1, R1<O>=TYPO, RO = TYP1 ! TYPO ! PGFLVB 


PAGEF AULT = TRANSLATION NOT VALID EX xcept ton’ wahoLe 1 :43: AX/VMS Macro v04-00 Pa 15 PA 
v0L=000 PAGE NOT RESIDENT, QUEUE A READ REQUEST g-3¢ sats ri 00:48:08 EOYs. SRCJPAGEFAULT.MAR; 1 ve wD v0. 
1D 0; 
1D NOTGLOBAL: 
0451 €9 O1D BLBC ~=—_—«a&R 1, 10 ;BRANCH IF NOT SECTION PAGE 
FO 50 11 «=~E0 +010 BBS #PTESV_DZRO,RO,DZRO_ PROC. = SEC ;BRANCH IF DEMAND ZERO PROCESS SECTION 
50 04 1? 4 108: CLRL = RO NDICATE NO SLAVE PAGE TABLE ENT 
109 : : O(SP) = VA (LOW BITS = PAGTYP) SP) . , SVAPTE (SLAVE IF GLOBAL) 
1D9 : RO = MASTER PTE ADDRESS IF GLOB 
109 ; = SLAVE PTE ADDRESS IF Gt boat LOT CRF 
109 39 = 0 IF NOT GLOBAL 
109 541 GBLNOTRESIDENT: 
01 35 AS 1 109 4 CHPE PHDSB_ PGTBPFC(RS) ,#1 yIF CLUSTERING PAGE TABLE PAGES 
52 04 AE 15 3 EF O1DF 544 EXTZV #VASV_VPN,#VAS$S_VPN.4(SP),R2 ;SEE IF ADJACENT PAGE TABLES 
1?" a 000° DF Ke DE 1E5 49 MOVAL Qv°MMGSGL =SPTBASELRCJ, R1 :NEED TO BE FAULTED, GET SPT ENTRY ADR 
. if 23 yal OTESAY orePi | PTESM_TYPO ! - 
1F 248 PTESH_ PGFLVB>,-(R1) ICHECK PREVIOUS SPT ENTRY 
OF 16 O12 54 BGTR 10 {BRANCH IF NOT VALID, NOT DZRO 
08 Al B47FFFFF BF D3 IE 330 BITL #<PTESH VA LI < a on 
giF¢ 3 PTESM-PGFLVB>, B(R1T :CHECK NEXT SPT ENTRY 
13. 15 gir 33 BLEQ = 408 [BRANCH IF IT IS VALID 
OIFE 338 : NEXT PAGE TABLE NEEDS TO BE FAULTED 
52 D6 Si 557 ° INCL R2 :SET NEXT SPT INDEX 
oe. wT ¢ 0 $39 BRB 208 
5 0 60 t PREVIOUS PAGE TABLE NEEDS TO BE FAULTED 
52 07 0 6¢ ios: vec R2 ;SET PREVIOUS SPT INDEX 
52 52 09 ¢ 04 563 20$: ROTL #9,R2,R2 [TURN SPT INDEX BACK INTO 
0052 Wie 08 564 BBSS avAsy SYSTEM,R2,30$ SSYSTEM VIRTUAL ADDRES ; 
93 " 020C 565 30S: POPR #*mcrO,R1> [CLEAN STACK SCRATCH RO,R1 
FE31 31 0 OF 66 BRW SYST TEM ngPA PACE 'G0 FAULT THE PAGE TABL 
51 0000'CF D6 1 67 40$:  MOVL  W*SCHSGL_CURPCB,R [COULD HAVE SYSTEM PCB IN 
3E Al BS COO 16 68 TSTW = PCBSw_ Bt acMT RS SENOUGH DIRECT 1/0 QUOTA FOR T HIS READ? 
1 : [NOTE THAT BUILDPKT WILL CHARGE THE READ 
85 15 0219 0 BLEQ DIOCNTWAIT_2 [BRANCH IF MUST WAIT. 
7E 0000'DE OF 021 71 REMQUE ay" 1OCSGL LIRPFL.-(SP) GET AN 1/0 WPACKES FROM THE Sipe LIST 
3 1D i BVS GET_IRP [BRANCH IF NEED TO GET ONE FROM THE POOL 
74 : RO = MASTER PTE ADDRESS IF GLOBAL CRF 
75; = SLAVE PTE ADDRESS IF GLOBAL NOT CRF | 
28 : = 0 IF NOT 
ui O(SP) = 1/0 REQUEST PACKET ADDRESS 
8 bor _IRP: 
52 04 AE 7D 0 MOVa  4(SP),R2 ;R2=VA (LOW BITS = PAGTYP), R3=SVAPTE 
7E D4 6 1 CLR -(SP) [INIT CRF INDICATOR TO "NOT CRF PAGE" | 
p ; PUSHL R [SAVE GLOBAL, GBLCRF INDICATOR 
08 A BSBW  MMGSININEWPFN TALLOCATE AND INIT A NEW PFN 
D D 4 TSTL =o [PFN ALLOCATED SUCCESSFULLY? 
1 F 6 BLSS  FREPAGWAIT_5 ‘BRANCH IF NOT, MUST WAIT 
53 0000'DF40 00 1 6 MOVL @W*°PFNSAL_PTECROJ.R3 § :GET MASTER PTE ADDRESS 


PAGEF AULT 
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= TRANSLATIO 
PAGE NO 


a aah ah ak aka ah ab ah ah hb hh db dee te eh eel le ete I, a 


DONE LS HSMM DW NLOOOOM WOOO BNL H&L LOM DOOOOOOOCOOOCOCOe ns 


wooonon7 
PRLS 


one 
NOT VALPDEERCRETEONSMARDKE TESSEECTOBG QR:4H:05 YANN eee YOC= OR. 


SAME AS any: gmess GLOBAL 


Page 


MOVL R3 16¢ sp) TSAVE FOR 
INCW W*PFNSAW_REFCNTCRO] § :2ND REFER NCES FOR PAGE 1/0 
91 : FORM R2 = BACKING STORE ADDRESS 
92 ; O(SP) = MASTER PAGE TABLE ENTRY ADDRESS IF GLOBAL CRF 
93 : = Ay vor toga TABLE ENTRY ADDRESS IF GLOBAL NOT CRF 
4 = 
: 4(SP) = INITTAL TIED f T COPY ON REFERENCE” 
; SET THIS TO EO neCT BACKING STORE ADDRESS IF CRF PAGE 
: 8(SP) = 1/0 REQUEST PACKET ADDRESS 
98 : VetsP) = VIRTUAL ADDRESS (LOW BITS = PAGTYP) 
99 : 16(SP) = SVAPTE, GLOBAL IF NOT GBL CRF, PROCESS !F NOT GBL OR IF GBL CRF 
’ BICL wu CePTESH PROT ! PTESM_OWN>,(R3),R1 ;R1 = PROT AND OWN 
BICL (R3) ,R2 :R2 = Tye "TYPO ' PGFLVB 
BISL RS 1, (R3) PTE = PROT ! OWN | PFN = TRANSITION PTE 
BBSC ROR CABS aos ‘BRANCH IF PAGE FILE OR SECTION 
: GLOBAL COPY ON REFERENCE PAGE 
; MOVL.  (SP)+,R3 :GET MASTER PAGE TABLE ENTRY ADDRESS 
BISL3 #PFNSM_GBLBAK,R2, (SP) i BL BACKING STORE ADR IN CRF INDICATOR 
PUSHL (R3) MASTER PA AGE TABLE ENTRY CONTENTS 
EXTZV #PFNSV_BAK,#PFNSS “BAK, (RS), R -GET ADR FROM MA 


STER PTE 
BRB 25$ 770 COPY ON REFERENCE SECTION LOGIC 
: PAGE FILE OR SECTION ADDRESS 


50S: BBC #PTESV_TYPO,R2,40$ 
BBC #PTESV-CRE RZ, 50$ 


: COPY ON REFERENCE SECTION TABLE ENTRY 
MOVL  R2,4(SP) 


;BRANCH IF PAGING FILE 
BRANCH IF NOT CRF 


SAVE BACKING ADDRESS IN CRF INDICATOR 


25$: MOVL PHOSL_PAGFIL(RS),- ‘NULL PAGE FIL § 
“PFRSAL_BAKCLROS :"'NOT YET ALLOCATED’’ PAGING FILE ADR 
BISB #<PFNSM MODIFY ! PFNSC -RDIN PROG> 
wa “PFNSAB_STATELRO) SFORCE MODIFY BIT, READ IN PROGRESS 
: PAGING FILE BACKING STORE ADDRESS 
dos: MOVL RS R1 
TSTL (SP) :1S IT GLOBAL 
BeQL 46s 45 NO 
MOVAL  @W*MMGSGL_SYSPHD,R1 'GET SYSTEM HEADER 
S$: ISL PHDSL_PAGFIL(R1).R2 [SET PAGE FILE INDEX 


4 
SECTION TABLE BACKING STORE ADDRESS 
bos: BISB #PFNSC_RDINPROG, @W*PFNSAB_STATECRO] ;READ IN PROGRESS 


63 MOVL R2,a@W*PFNSAL_BAKCRO] § ;STORE BACKING STORE ADDRESS 
641 : RO = PEN 

642 ; = BACKING STORE ADDRESS 

643 ; = PAGE TABLE ENTRY ADDRESS, PROCESS ADR IF NOT GLOBAL, 


55 O000'DF ODE 


6D 52 7D 


10 AD «68E 7D 


‘G09 00 CO ~“ ~ NOOO AAO ee 


SDOOOOO0O0O0O0O0 O09 00000000 SN ano PPPS 


23 AD 2F AG 

24 AD ead 
22 AD 0000'DF40 
6€ 


ze F SSS 


SOOOSOOOOOOOOOCOOCOCOOCOCOOOOOOOOOOOOSOOoOO: 


48 AD 


panphay stg hnegtohprhpehpengehperprherigh 4 b AA SR+RRIRRLRIRIRRGMLS SS PBBs 4 tr tpred TTI SII IIIIIAIIIII2: 


POD WUMP IMP IN IM INIMINING TF FO VES SO ODC9 09090009 & & & IMO 
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PAGEFA = TRANSLATION NOT VALID EXCEPTION HANDLE 16-SEP-1986 00:43:02 VAX/VMS Macro v04-00 Page 17 | 
voe PAGE NOT RESIDENT, QUEER HEAD REQUEST. SaSep-19Be Bescese8 ees oer ot Oe: ef 
: GLOBAL ADDRESS. IF GLOBAL OR SLOBAL CRF | 
: RG = PROCESS PCB IF o¢ S§ PAGE, PROCESS PAGE TABLE, OR GLOBAL PAGE. 
i pg = SUSTER PCB IF SYSTER PAGE OR GLOBAL PAGE TABLE 
: RS = PROCESS HEADER ADDRESS COR ResBone i” TO THE ABOVE PCB ADDRESS 
; O(SP) = RASTER PTE CONTENTS IF GLOBAL CRE. (20) | 
: = SLAVE PTE ADDRESS IF GLOBAL NOT CRF (<0) | 
: = 0 IF NOT GLOBAL | 
: 4(SP) = 0 IF PAGE IS NOT COPY ON REFERENCE 
: = BACKING STORE ADDRESS (FOR GBL CRF TOO) IF CRF PAGE | 
: §(SP) = 1/0 REQUEST PACKET ADDRESS 
: 12¢SP) = VIRTUAL ADDRESS (LOW BITS = PAGTY 
¢ 16(SP) = SVAPTES GLOBAL IF NOT GBL CRA PROCESS IF NOT GBL OR IF GBL CRF 
$1 0B AE bos:  MOVL ~—s BSP), RT ADDRESS OF 1/0 REQUEST PACKET 
al SDCO rs MOVL «FP, FP’ SAV(R1) :SAVE A REGIS 
50 51 8 MOVE RTF SUSE THIS FOR CLUSTER CONTEXT 
40 AD 54 MOVG ——«R4-PCB_SAV(FP) ‘SAVE PCB, PHD ADDRESSE 
éE D TSTL (SP) [LESS THAN O IF GLOBAL PAGE 
ea Beat «708 {BRANCH IF NOT GLOBAL PAGE 
0? 14 BGTR 658 SBRANCH IF GLOBAL CRF 
54  O0000000'EF DE OVAL L“MMGSAL_SYSPCB,R4 ZUSE SYSTER, PCB FOR GLOBAL PAGES 


THE PRIORITY 
65$: MOVAL @W*MMGSGL_SYSPHD,RS5 ;SYSTEM PROCESS HEADER ADDRESS 
: IF '" BACKING STORE ADDRESS IN R2 IS A GLOBAL ADDRESS, THEN R3 IS = MASTER PTE 


IS THE SYSTEM PROCESS HEADER, OTHERWISE R35 IS THE PROCESS PT 


; AND _R 
; ADDRESS AND RS IS THE PROCESS HEADER ADDRESS. 
70S: MOVQ R2,PTEDAT(FP) SAVE PTE DATA, AND ADDRESS 


ASSUME ASTPRM EQ AST+4 
MOVQ (SP)+,ASTCFP) :STORE PARAMETERS TO IOPOST IN IRP 


FETCH | alt Thor el hE ty 7 wecsess PCB IF PROCESS PAGE, 
PROCESS PAGE TABLE GLOBAL CRF PAGE. USE SYSTEM PRIORITY 
IF SYST en PAGE, GLOBAL PAGE, OR GLOBAL PAGE TABLE. 


MOVB  PCBSB PRIB(RG) PRI(FP) ;STORE PRIORITY OF TRANSFER IN IRP 

MOVL aW*PFASAL KCROJ 1 ,BAK (EP pS; :SAVE BACKI NG STORE ADDRESS 

BICB3 Be ePrN NSH ty PFNSM_LOC>,=- ;AND STA TE BYTE INFORMATION 
aw*PFNSAB_ STATECROD. STATECED) FROM PEN DATA 


OF FIRST AGE 
CLRL 3E.s« CSP) ouéH WI fd Ip ADDRESS, USE FOR SCRATCH 
Urey BE PAGE TABLE FAULT CLUSTER IF PPGTBL 
CLRL  PHVREFCADR(FP) TADDRESS OF PROCESS HEADER REF CNT IF PPGTBL 


ASSUME a4. 9B Perens 


ASSUME BENSC GPGT E 
vst 0_PAGTYP, #WS ss -PAGTYP,~ :1F PAGE TABLE PAGE 
) ,PPFNSC_PPGT iT THEN SEPARATE CLUSTER FACTOR 
BLSS 608. RANCH IF NOT P 
BGTR 0 ?BRANCH IF GLOBAL PAGE TABLE 


; MUST RECORD A PROCESS HEADER REFERENCE FOR PAGE READ OF PROCESS HEADER PAGE 


PAGEF AULT - TRANSLATIO : pr ON HAND é 1g-$ “$ p-1986 09: 43: 08 VAXVis Macro v04-00 Page 18, PA\ 


ALID EXCE 
NT ‘ QUEUE AR 


N 
v04 PAGE NO $1 REQUES SYS.SRCJPAGEFAULT.MAR; 1 v0. 
EC 13 
1 42 aS 3 7 ; mOVZL PHD SW PHVINDEX (RS) ;PROCESS HEADER VECTOR INDEX 
51 0000'DF41 F a@w*PHUSGL_REFCBASL tai RI jADDRESS OF PROCESS HEADER REF CNT 
$1 ry F 4 1 T ANOTHER REFERENCE 
BAD 51 p F 5 MOVL = RI buvnerca DR(FP) : Coun ADDRESS FOR CLUSTERING CODE 
6— 35 A? F t 6 MOVE  PHOSB_PGTBPFC(RS).(SP) :GET PAGE TABLE CLUSTER FACTOR 
0 1 BNEQ 90% ‘BRANCH IF SPECIFIED 
6 01 p 7 : 0s: MOVL #1,(SP) : INDICATE NO CLUSTERING 
BA7 7 $:  BSBW mnGS1NIBLDPKT SET REG ISTERS TO CALL BUILDPK 
23 0000'CF 0900000 "BF E £10 BBS #EXESV_NOCLUSTER, W*EXESGL Flas 110$ i BRANCH IF CLUSTERING DISABLED 
4 40 aD 7D MOVQ PCB_SAU(FP),R4 ;RECOVER PCB, PHD ADDRESSES 
1 8 ASSUME SECS$B_PFC EQ PFL$B_PFC 
01 AE OB Al 90 0316 714 MOVB  SECSB-PFC(R1),1(SPY :PAGE FAULT CLUSTER FROM 
1B 715 ‘SECTION OR PAGE FILE CONTROL BLOCK 
51 6€ 9A 031B £16 MOVZBL (SP) RI 7SEE IF PAGE TABLE CLUSTER SPECIFIED 
OA 14 1 71 BGTR 1008 ‘BRANCH IF SPECIFIED 
51 01AE 9A 218 MOVZBL 1(SP),R1 7SEE IF PAGE FILE OR SECTION TABLE 
0324 71 SCLUSTER WAS SPECIFIED 
04 16 3 4 720 BGTR 1008 sBRANCH IF IT WAS 
51 3405 9A 6 721 MOVZBL PHD$B_DFPFC(RS),R1 [DEFAULT FROM PROCESS HEADER 
3 A 7? : SPROCESS IF PROCESS OR GLOBAL PAGE 
A 7 :SYSTEM IF SYSTEM PAG 
01 51 D1 3 A 726 100$: CMPL  R1,41 [CLUSTER OF 1? 
06 15 D 725 BLEQ ~=s«+116$ [BRANCH IF YES 
5E 04 £0 O32F 7 : ADDL ba SP [CLEAN OFF CLUSTER FACTOR SCRATCH 
008 1 0 é 7 BRW TRY_TO_CLUSTER :GO TRY TO CLUST 
51 01 00 728 110$: MOVL #1,R1 TONE PAGE READ 
3 08 CO 0338 729 ADDL #8.SP SCLEAN OFF VIRTUAL ADDRESS 
53 BE OO 03 : f rs MOVL  (SP)+,R3 :SVAPTE FROM PFNSAL_PTE 
03 E f gi : RO = VBN, R1 = PAGE COUNT, R2 = WINDOW, R3 = SVAPTE, FP = IRP 
: E f 4 QUEUE _PAGE_READ: 
0008'CF D6 § 736 INCL W*PMS$GL_PREADIO ;COUNT PAGE READ 1/0 REQUESTS (SYSTEM) 
004" CF 6§1 =O 034 737 ADDL  R1,W*PMSSGL_PREADS D THE NUMBER OF PAGES ° 
0000' CF 00 4? 6-738 MOVL W*SCHSGL_CURPCB,R4 OCB ADDRESS 
“55 CAG OD 4c 739 MOVL PCBSL_PHB(R4) RS [PHD ADDRESS 
108 C5 D 50 6740 INCL PHDSL“PGFLTIO(R5) > COUNT PAGE READ 1/0, REQUESTS (PROCESS) 
51 1 09 0354 741 ASHL =: #9, RTT R1 ;FORM BYTE COUNT TO TRANSFER 
55. 5D 09 58 24g MOVL 5 [1/0 PACKET ADDRESS 
5D 3C AS) OD B 7% MOVL FP_SAV(RS),FP TRESTORE SAVED REGISTER 
foes 
F 746; KO = VBN 
F is : Rt = NUMBER OF BYTES TO READ 
F 148 : Re = WINDOW ADDRESS 
F 749 : R3 = SVAPTE (MASTER IF GLOBAL, SLAVE IF GLOBAL CRF) 
iS. ; > R& = PROCESS PCB ADDRESS 
3 f : RS = 1/0 REQUEST PACKET ADDRESS 
OG . : > IRPSL_AST(RS) 
F 754: = MASTER PTE CONTENTS IF GLOBAL CRF (>0) 
F 755; = SLAVE PTE ADDRESS IF GLOBAL NOT CRF (<0) 
Zt. : ; = 0 IF NOT gt BAL 
F 757 : IRPSL_ASTPRACR 
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PAGEF AULT = TRANSLATION NOT VALID EXCEPTION HANDLE 16-SEP-1984 00:43: AX/VMS Macro V04-00 Page 19 
voe=000" PAGE NOT RESIDENT, QUEUE A READ REQUEST §- et 4 90:48:08 SYS.SRCJPAGEFAULT.MAR; 1 ee 
F 3 eo BACKING STORE ADDRESS IF CRF PAGE (GBLBAK SET IF GBL CRF) 
F ; 20 IF NOT CRF PAGE 
F ; IRPSB_PRI(R5) = DESIRED TRANSFER PRIORITY 
FC9E' 30 F : BSBW = EXESBUILDPKTR ;BUILD AND QUEUE THE 1/0 PACKET 
g ; THE FOLLOWING WAITS THE PROCESS AT THE FAULTING MODE 
66 PROCPAG: 
50 0000'CF 7 é MOVAQ W*SCH$GQ_PFWO,RO :PAGE FAULT WAIT QUEUE ADDRESS 
49 «1 , eGrexIT: ee MMGSPGFLTWAIT.1 [PUT PROCESS ON PAGE FAULT WAIT QUEUE 
3 BA 83 45 ; #°M<RO,R1,R2,R3,R4,R5> ;RESTORE REGISTERS SAVED BY PAGE FAULT 
SE 08 CO 68 of ADDL  4#8,SP [CLEAN OFF THE EXCEPTION PARAMETERS 
6 78 : STACK NOW CONTAINS JUST THE FAULT PC, PSL PAIR 
6£ 775 MMGSSVPCTX:: 
07 036 176 SVPCT :SAVE PROCESS CONTEXT 
54 0000'CF bo : 77 MOVL  W*SCH$GL_CURPCB,R4 ‘GET PCB ADDRESS 
FCa9* «31 0 , 178 BRW SCHSWAITA [JOIN COMMON WAIT CODE FOLLOWING SVPCTX 
0 , 780 : NO FREE PAGES AVAILABLE ON THE FREE PAGE LIST, MUST WAIT 
78. FREEPAGEWAIT: 
50 O000'CF 7E 78 MOVAQ W*SCH$GQ_FPGWO,RO :WAIT ON FREE PAGE WAIT QUEUE 
iA 1 184 RB FREEPAGEQAIT1 
8 ; WAIT FOR RESOURCE IN R1 TO BECOME AVAILABLE 
Bs RESOURCEWAIT: 
1¢ 010 9 BSBB = MMGSRESRCWAIT :SET UP TO WAIT FOR THE RESOURCES 
} ae 30 BRB PGFEXIT SAND EXIT TO THE SCHEDULER 
3¢ : FAULT FOR PAGE WHICH IS ALREADY ON THE WAY INTO MEMORY 
READINPROG: 
0c 5 POPR ;R2=VA (LOW BITS = PAGTYP), R3=SVAPTE 


9 #°M<R2,R3> 
79 ASSUME PFNSC_PROCESS EQ 0 


0000°DF40 07 3 79 BITB #PFNSA_PAGTYP,aW*PFNSAB_TYPECRO] ;PROCESS PAGE? 


MAO OOOOMO SP WOWUWUO DS & SMUMNMNNOM MMMM Oo NINES HMMM 
SSAA NNN 
Z oO 


AANA AAA AAA AAA AAA AA AAA AAA AA AA AAA 
BVVLLLLLLLLLLOCLLBBHMM WWD AIAIAIINNN 
~ 
so 
o 
m 
2 
- 


_ 
So 
Ne no www felolelolololq~) 


D6 PROCPA BRAN 
00 0000'DF40 04 €E2 199 ral BBSS § #PFNSV_COLLISION,aW*PFNSAB_TYPECROJ,10$ ;COLLISION OCCURRED 
50 O0000'CF 7E " MOVAQ = W*SCHSGQ_COLPGWO,RO ICOLLISION PAGE WAIT QUEUE 
g FREEPAGEWAITI: 
18 BSBB = MMGSPGFLTWAIT_1 :PLACE PROCESS ON THE COLLISION QUEUE 
ek 4 BRB PGFEXIT TEXIT TO THE SCEDULER 
S + WAIT FOR RESOURCE IN R1 TO BECOME AVAILABLE 
+ RO,R1,R2,R3 ALTERED, R4 RETURNED WITH CURRENT PCB ADDRESS 
§ ‘ .ENABL LSB 
19 MMGSRESRCWAIT:: 
54  0000'CF v0 1 MOVL  W°SCHSGL_CURPCB,R4 :R4 = CURRENT PCB ADDRESS 
40 AG 6551S 1g MOVL  R1,PCBSL~EFWM(R4) [SET RESOURCE NEEDED 
00 0000'CF 51 £6 13 ea BBSSI R1.W*SCHSGL_RESMASK,10$ :NOTE SOMEONE WAITING 


PAGEF AULT SaLBANSLATION NOT VALID EXCEPTION HANDLE 16-SEP=1984 AX/VMS Macro V04-00 Page 2 
v04 PAGE NOT RESIDENT, QUEUE A READ REQUEST” Sesepatone Oo:ceie9 Pere eRcHPAGcEAge T MAR; 1 oe 29, 
50 0000'tF © 7 15 MOVAG — Y°SCHSGO_MWAIT.RO WAIT ON MISCELLANEOUS QUEUE 
5 1 a) 816 BRB :60 WAIT THIS PROCESS 
17 MMGSPGFLTWAIT_1: 
54 Q000'CF 00 0382 81 MOVL_~ W*SCHSGL_CURPCB.R4 ;MUST WAIT THE PROCESS PCB 
12 MMGSPGFLTWAIT:: 
08 AO «86 (0387 " INCW — WQHSW_WQCNT (ROD ;COUNT THIS PROCESS WAITING 
A INSQUE (R4), ‘QUEUE THIS P 
2C AG OOA AO 8) : ; nOvu WOHSW_WQSTATE(RO) ,PCBSW_STATE(R4) ;SET WAIT STATE IN PCB 
¢ 5 
¢ a -DSABL LSB 


PAGEF AULT = TRANSLATI 
v0e=000" FORM A CLUST 


2 
oo 
oe 


L 6 
PAGES FO READ we TSS =198e 8:45:00 EsrSesmciPAGerAULToMan:1 © "9 2) v6 


-SBTTL FORM A CLUSTER OF PAGES TO READ 


; RO = VON IN FILE OF FIRST PAGE TO READ 
; R1 = DESIRED CLUSTER SIZE 
; R2 = WINDOW CONTROL BLOCK ADDRESS 
; R4 = PCB ADDRESS, PROCESS IF PROCESS OR GLOBAL PAGE, SYSTEM IF SYSTEM PAGE 
; RS = PHD ADDRESS, PROCESS IF PROCESS OR GLOBAL PAGE. SYSTEM IF SYSTEM PAGE 
; FP = 1/0 REQUEST PACKET ADDRESS 
; OCS) = VIRTUAL ADDRESS (LOW BITS = PAGTYP) 
: 4(SP) = SVAPTE FROM PFNSAL_PTE 
.ENABL LSB 
TRY_TO_CLUSTER: 
Or aD BE D0 MOVL  (SP)+,VACFP) ;SAVE VIRTUAL ADDRESS 
4 AD D MOVL RO, VBN(FP) :SET VIRTUAL BLOCK NUMBER 


ASSUME COUNT Fa LUSTER+1 
BISW3  #*X0100,R1,CLUSTER(FP) ;SET COUNT AND CLUSTER 
MOVL R2,WINDOW(FP) ‘WINDOW ADDRESS 


: PUT PTEDAT INTO FORM OF TYP1 ! TYPO ! PGFLVB 


; ASSUME PFNSV_PGFLX GE 24 
ASSUME PTESV-TYP 


UPUREA AI 


NOUS WN OOO NA UE WIN O OD NA UNE WH S$ OOONAUS LOO 
. 


4 
20 AD =(51_. 0100 of Ag 
38 AD 2 0 


GE 

03 AD 04 90 MOVB  #PTESM_TYP1a-24,PTEDAT+3(FP) ; TURN TYP1 BACK ON, CLEAR PAGE FILE IND 
53 10 AD OD MOVL ASTCEPY RS sPROCESS PTE ADR IF GBL NOT CRF 

18 1 BEQL 308 [BRANCH IF NOT GLOBAL PAGE 

oc 1 BLSS 108 ‘BRANCH IF GBL NOT CRF 

3 : GLOBAL COPY ON REFERENCE PAGE 
3 «6E 00 6 MOVL  (SP),R3 :PROCESS PTE ADR WHEN GBL CRF 

52° °14 AD OD 6 MOVL  ASTPRMCFP),R2 :GPTX PTE CONTENTS FOR THIS CASE 

06 1 6 BRB 20$ 


0.09.0900.09 69.69 09 09 Cd Gd Gd C9 G9 Cd Od Od Cd CD 09 Od Od Gd Od OD OD OD GD Gd Gd Cd OD CS CD CD Cd GD Cd CD CD C9 C9 09 OD C9. CD CD CO CD CD CD CD CDCR CDCDCD me 
oO 
Wwr—o 


65 CLU_END1: 
00&B 31 ° BRW CLU_END 
68 ; 
$ t GLOBAL PAGE NOT COPY ON REFERENCE 
53 5 D0 7 fos: MOVL  (R3),R2 :GPTX FROM PROCESS PTE 
52. FB800000 BF CA 72 208:  BICL #*C<PTESM_TYP1 ! PTESM_TYPO !- ; ISOLATE PAGE TYPE 
a PTESM_GPTR>,R2 ;AND GPTX BITS 
75 ASSUME GPTX_PTE EQ GPTX+4 
18 AD 52 7D id: 308 MOVQ —s—- R2, GPTX(FP) :SET GPTX AND GPTX_PTE 
28 AD «(01S sé ; C A MOVL #1. INCI(FP) SINIT TO SCAN FORWARDS 
4 4 .OSABL LSB 
C AD AD 7 t CLIN #2, INC1( FP), INC4(FP) 1+ OR = 4 
$5 AD $ AD 98 8 4 : SHL TO INCL UEP INES Te CEP) t+ OR = 512 


Cpe r AULT 
v04-00 
53 04 AD ae 53 
4 of 


53°" 28 AD 
5 000" ‘pret 
50 63 78800000 af 


51 


53 1g 40 2c AD 
seedeat 
50 63 78800000 8F 


52. 18 AD 28 AD 
a 
8A 


0000" DF 42 
7c 


52 OC AD 30 AD 
OC AD 52 
05¢ 


5 


68 
21 AD 
51 48 AD 


0 

6 

53 0000'DF40 
0000*DF40 


or 
c— 
n~ 
+o 
ma 
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PRR R RRR RRR RRP RRR PPP PRP 


COO SIN SDDDDAAO AA AO ITU BE AAAI NII AINA SS S| | O 


SoOooooo 


PRRRR RRR REESE 


o@o-—- 9o0-90UWo0-co 
SOW O8OUNlO—OU 
5 
BAS 29 9 NMOS BMD HOAPOAHMO VIO OOM DS NVM OUTS OTVO -\y 
—OODNO UES WN -" OVOOnour 


OoOOCOooCoOoooOoooooO 


wo 

oa 

RRR RRRRSE 
oo 

ex 


~SEP-1984 SYS.SRCJPAGEFAULT.MAR; 1 


ADDL3 —INC4(FP) SVAPTE(FP) R3_ :NEXT PTE TO CHECK 
MOVL R3 eVAPTECEP PDATE CONTEXT 
BBS Pte sy TYPO PTEDAT(FP), 2U$ :BRANCH IF SECTION ADDRESS 
ADDL INC1 (FP) ,PTEDAT CFP - INCREMENT PAGE FILE ADDRESS 
20$: EXTZV #VA$V VPN. AVASS vPN R3, ri i CHECK THAT PTE IS RESIDENT 
TSTL a@w°MnG piece BY M AKING SURE ITS SPTE IS VALID 
BGEG_ CLU_END BRANCH IF IT ISN'T 
BICL3 #*C2PTESM_VALID ! :GET VALID BIT 
PIES TYP PT. ' PTESM TYPO ! =;PAGE TYPE BITS 
PTESM PGF LVB> (R3)> sAND PAGE FILE/GPTX BITS FROM PTE 
CMPL RO, PTEDAT(FP SMUST AGREE IF THIS PAGE IS IN THE CLUSTER 
BNEQ  CLU_END1 SBRANCH IF AT END OF CLUSTER 
TSTL GPTR_PTECFP) ‘WAS THAT THE MASTER PTE FOR A GLOBAL? 
BEQL 608 ‘BRANCH IF NO, IT WAS PROCESS PTE 
; MUST TEST THAT PROCESS PTE POINTS AT THE GPTX 
ADDL3 INCA CFP), goer PTE(FP),R3 ;NEXT PROCESS PTE ADR 
EXTZV #VASV_VPN,#VASS_VPN.R3,R1 :CHECK THAT THIS PTE IS ACCESSIBLE 
TSTL SU-RMOSGL EPIBASECRI :BY MAKING SURE ITS SPTE IS VALID 
BGEQ ND1 ~ ‘BRANCH IF IT ISN'T 
BICL3 P°CZPTESM VALID ! = {SET VALID BIT 
PTESM_TYPT ! PTESM_TYPO ! -:PAGE TYPE BITS 
PTESM-PGFLVB>,(R3),RO :AND PGFLVB/GPTX FROM PTE 
ADDL3 INC1(FP) ,GPTX(FP) ,R2 3NEXT GLOBAL PAGE TABLE INDEX 
CMPL RO, R2 tIN THE CLUSTE 
BNEQ  CLU_END1 ‘BRANCH IF NOT 
ASSUME GPTX PTE EQ GPTX+4 
MOVQ ~—s R2,, GPTX SUPDATE GPTX 
: R1 = SPT INDEX FOR PAGE TABLE PAGE 
: R3 = PROCESS PTE ADDRESS 
80$:  PUSHR #*M<R1,R3> SAVE PROCESS | PTE ADR, SPT INDEX 
BSBW MMGSFREWSLE [GET A FREE WORKING SET LIST ENTRY 
MOVQ (SP)+,R2 SRESTORE PROCESS PTE ADR, SPT INDEX 
BLBC RO CLO END_RESRC1 SIF CANNOT GET ONE, END THE CLUSTER 
? MUST CHECK THE SPT ENTRY FOR PROCESS PAGE TABLE IS STILL VALID 
> FREWSLE MIGHT HAVE DISCARDED IT FROM THE WORKING SET. 
TSTL av"MMGSGL SPTBASELR23 :1S SPT ENTRY FOR PT STILL VALID 
BGEQ UEND [BRANCH IF 
ADDL3 thes rey: SACEP), R2 ss: NEXT VIRTUAL ADDRESS 
MOVL R2,VACFP) [UPDATE THE CONTEXT 
BSBW nINGS ININEWPEN sALLOC AND INIT A PFN 
TSTL Z1F NO PFN'S AVAILABL 
BLSS clu END_RESRC ‘THEN END THE CLUSTER 
INCB OURT (FP) > COUNT ANOTHER PAGE IN THE CLUSTER 
MOVL PRYREF CADR(FP) RI [PROCESS HEADER REF CNT ADR 
TIF THIS IS A PROCESS PAGE TABLE P AGE 
BEQL 70% ‘BRANCH IF NOT A PROCESS PAGE TABLE PAGE 
INCW = (R1) [COUNT ANOTHER PROCESS HEADER REFERENCE 
70$:  MOVL  a@W*PFNSAL_PTECROJ,R3 PROCESS PTE ADR IF NOT GLOBAL OR IF GBL CRF 
:GLOBAL PTE ADR IF GLOBAL NOT: 
INCW  @W*PFNSAW_REFCNTCRO] = SECOND REFERENCE FOR 1/0 IN PROGRESS 
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PAGEF AULT = TRANSLATION NOT VALID EXCEPTION HANDLE 16-SEP-1984 00:4 AX/VMS Macro V04-00 Page 23 
Vs eo0b" FORM A CLUSTER OF PAGES Fx READ g- =SEP-1984 88: 48: 9 YeYS. SRCJPAGEFAULT.MAR; 1 - & 
F BF 4 4 #*C<PTESM PROT ! PTESM_OWN>, (R3),R PROTECTION. AND OWNER FIELDS 
st nae aa 4 f rH rk Bictg RO,R1 Faas FORM thaksritG 
24 AD DO O4AA 944 MOVL BAK(FP),R2 ORCRING Re oRES FROM” PReu PEN 
oe 53 5 4A 45 BBS #PTESV_ TYPO A gos i BRANCH IF SECTION ADDRESS 
03 i 46 ASHL #3e- =PFASS_BAK,R SIF NOT A NULL PAGE FILE ADDRESS 
52 28 AD CO 048 948 ADDL _INC1(FP),R2 ; THEN INCREMENT THE ADDRESS 
24 A 52 D 4B 34 MOVL Re «BAK (EB) SAND UPDATE THE CONTEXT 
0000*pF 4d 4C 50 80$:  MOVL R2,aW*PFNSAL_BA f SET BACKING STORE ADR FOR THIS PFN 
0000'DF40 22 AD 8 406 951 BISB STATE(FP),aW*PFNSAB_STATELRO] ;USE STATE FROM PREV 
ai es a re gg 
FF35 § hy 954 BRW CLUTNXT™ 'NO, TRY FOR ANOTHER PAGE 
407 955 CLU_END_RESRC1: 
1A 11 0407 936 BRB CLU_END_RESRC 
409 958 : END OF CLUSTER 
ry 82 tLU_END: 
01 21 AD 91 #0409 961 +” ~ # CMPB COUNT (FP) #1 iL AT LEAST 2 PAGES IN CLUSTER 
14 04DD 96¢ GTR  CLU_END_RESRC [THEN READ THE CLUSTER 
28 AD 28 AD CE O4DF 96 MNEGL INctrPs, INC1 (FP) SOTHERWISE TRY TO SCAN BACKWARDS 
14 0464 964 GTR D RE ESRC 3 UNLESS ALREADY TRIED T 
$3 6 96 «66 OER 966 aps stig tip PTEDAT(FP), abs NK. To. STARTING SVAPTE 
6D b Que 967 DECL  PTEDATTFP BACK TO ORIG PAGE FILE VBN 
FFOD 31 GcF 968 20$: BRW CLO. INI ENC 
a 970 : SET UP TO DO THE PAGE READ 
53. BE 00 vt 378 ELU_END_RESRC: (SP)+,R3 GET PTE ADR OF FIRST PFN IN CLUSTER 
a aT AD OOK OGEA ors ROVE, VONCEE) ,RO, SAND LTS ASSOCIATED VON IN THE FILE 
Ay AD 0 Gere 976 STL . TNCTCEP) ’ TIF CLUSTER WENT BACKWARDS 
R1,#1,R2 -(COUNT=1) 
78 OG 0807 858 tet? RD nD ANGUS FIVE VON 
53 6325 DE 050A 980 MOVAL (RS$)CR2],R3 SAND PTE ADR 
54 10 AD 06 0508 981 ROVL AST CFP) .R4 :PROCESS PTE one esaL GLOBAL PAGE? 
4 13 ba44 383 BESS 10$ [BRANCH IF GLOBAL BUT NOT CRF 
14 AD $8 CO 316 $84 ADDL R2 , ASTPRMCFP) TADJUST GLOBAL BACKING STORE ADDRESS 
10 AD gues oe af $86 108: MOVAL (R4DER2I A AST CFP) : ADJUST, PROCESS PTE ADDRESS FOR GLOBAL PAGE 
= ay) Rf $233 988 =—S—sé«éiRRW QUEUE _PAGE. READ 'GO QUEUE THE PAGE READ 
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PAGEF AULT = TRANSLATION NOT VALID EXCEPTION HANDLE 16-SEP-1984 00:43:02 VAX/VMS Macro V04-00 Page 24 
voe=000 DEMAND ZERO PAGE mit P 90:78:08 HOYS SRCIPAGEF AULT MAR: 1 : 3) 
5 aR .SBTTL DEMAND ZERO PAGE 
336 : : MUST WAIT FOR FREE PAGES TO BECOME AVAILABLE 
99% H2ROFPGWAIT 5: 
SE 14 g0 999 ADDC © #<5*4>,SP :CLEAN OFF 5 LONG WORDS 
FE49) 31 3 8 936 BRW FREEPAGEWAIT tAND GO WAIT FOR A FREE PAGE 
5 : 443 ; THIS IS A DEMAND ZERO FORMAT PAGE TABLE ENTRY, RO = 0 
52E 1000 52RO_PTE: 
534 05 1 04 CLRL sR :NO GLOBAL MASTER PTE ADDRESS 
514 05 : CLRL sR [NO MASTER PTE CONTENTS 
0532 1 Sz : RO = BACKING STORE ADDRESS, TYP1 ! TYPO ! PGFL 
0532 1005 : R1 = MASTER PAGE TABLE ENTRY CONTENTS IF GLOBAL’ 0 IF NOT 
05 1006 ; R3_= GLOBAL PAGE TABLE ENT RY ADDRESS IF GLOBAL, 0 IF NOT 
05 100 : OCSP) = FAULT VA (LOW BITS = PAGTYP) 
03 1008 : 4(SP) = CORRESPONDING SVAPTE 
0532 1010 62R0_GBL SEC: 
0B BB 0532 1011 PUSHR  #*M<RO,R1,R3> ;SAVE GBL PTE ADR Gat Ral: CONTENTS, 
0534 101g AND VBACKING I STORE A RESS 
52. OC AE 7D 0534 101 MOVQ =: 12(SP) ,R2 :R2= PTE 
0514 30 0538 1014 BSBW MMGSININEWPFN SALLOCATE AND. INIT 
50 05 0538 1015 TSTL RO :SEE IF A PEN WAS ALLOCATED | 
E9 19 053d 1016 BLSS  DZROFPGWAIT_5 NCH F HAVE TO WA 
0000'DF40 «60070 —BBSCOOS3F 1017 BISB = #PFNSC ACTIVE, aw*PFNSAB Bi: RO MARK PAGE ACTIVE 
52. 1C AS DO 0545 1018 MOVL PHDSL ~PAGEI IL(R5) ,R2 sASSUME NULL PAGE FILE BACKING STORE 
51 BE 060 0549 1019 MOVL (SP) [GET BACKING STORE ADDRESS 
zo 4C 1020 BEQL 208 [BRANCH IF DEMAND 2ERO FORMAT 
1851 10 €0 O54 1021 BBS sPTESY CRF ,R1,20$ ;BRANCH IF DZRO, CRF SECTION 
OF 51 1A £0 0552 10 : BBS TYP{ RI, 10$ [CHECK FOR GLOBAL WITH PAGE NFILE BACING STOR 
0B 51 16 «€5 0556 10 BBCC PTESV YPO.R1,10$ 
055A 1024 ; PAGE FILE TRACKING STORE GLOBAL SECTION 
52. OO00'DF DE 055A 1025 aw* YSPHD,R :GET SYSTEM HEADER 
52. 1C a2 D6 O55 19 é Rove. PHOSL SPAGFIL GRO), R ‘BACKING STORE ADDRESS 
52 51 FF820000 SF cB 0565 19 : 10$:  BICL3 #<PTESM_DZRO ! “C<PFNSM_BAK>>,R1,R2 ;BACKING STORE ADR 
0960 1 sWITH DZRO SHUT OFF 
0000'DF40 52 00 36 10 0 20$:  MOVL R2,@W*PFNSAL_BAKCRO] #;STORE THE BACKING STORE ADDRESS | 
$f 1 : : O(SP) = MASTER PTE CONTENTS IF GLOBAL, 0 IF NOT 
37 1 : 4(SP) = MASTER PTE ADD RESS IF GLOBAL, 0 IF NOT 
73 (1034 : (SP) = VIRTUAL ADDRESS (LOW BITS = BAGE TYPE) | 
37 5 : 12(SP) = SYSTEM VIRTUAL ADDRESS OF PROCESS PAGE TABLE ENTRY 
52 08 AE 7D 0573 1 $ . mova «BSP R2= VA (LOW BITS = PAGTYP), R3=SVAPTE | 
63 BO7FFFFF i cB 0577 ‘1 8 BICL3 a ccPttan PROT ! PTESM_OWN 
E S7E 1 (R3) ,=(S UPPROTECTION AND OWNER FROM PTE 
63 50 94000000 8 C9 O57F 1040 BISL3 4#<PTESA VALID ' PTESC_K 
587 1041 PIESA -ODIF >,RO,(R3)~ " AAKE PAGE KERNEL WRITE FOR ZEROING 
7E 53 55 c3 0587 1 4¢ SUBL3. -RS,R (Sp) AVE BYTE INDEX TO PTE 
03 01 ED 0588 104 CMPZ2V #wSLSV ~PAGTYP #WSLSS _pactye. ° THIS IS NOT A PROCESS PAGE 
é SBE 1044 Re SPERSC _PROCESS s THEN bon't T LOWER IPL TO ZERO PAGE 
03 «(12 39 45 BNEQ 228 [STAY AT HIGHER IPL iF hot PROCESS PAGE 
= 


PAGEF AULT = TRANSLATI 
v0e=000 DEMAND ZERO P 
9 
12 02 ODA ; 
Ppp0008s 59 
0014'CF 59 
599 
233 
99 
0599 
0599 
on $e 
62 0200 8F 00 64 OO 2 b2n8 
54 51 DO Q5A 
QSA6 
12, 08 DA Q5A6 
53 _8E 6C AS C1 O5A9 
50 63 7BE00000 8F CB Beak 
63 8€ 50 C9 0586 
QSBA 
52 _ 08 ag DO O05BA 
3A 5 A Q5BE 
21 OE D bee) 
3D 8613 05¢4 
62 51 di 05¢6 
2D 613 05¢9 
05¢B 
05(¢B 
05(¢B 
05¢8 
50 50 15 OO EF Q5CB 
6— 50 00 B208 
55. 6C AS 800 05D 
0000°DF40 6 0507 
51 939610 AS C Q50¢ 
52 08_AE Q 05E0 
O32E 0 b2e3 
0450 €8 05€7 
OSEA 
QSEA 
QSEA 
Bea 
SEA 
326A 
FEFF QSEA 
0004° QS5EC 
Op" 30 39 
8 ¢ SF 
5 = oe 
ef 
F 
SF 
51 B867FFFFF 8F CA OSF 


ane a a ne a tt 4 


SoOoQoCoooooo 
CoO0O001DO0O0C 


NOUS WMO” 


30$: 


GLOBAL DEMAND 


los: 


BUG_CHECK FREWSLY FATAL 
IIF IDN <FATAL>,<FATAL> , .WORD BUGS$_FREWSLX!4 


#*n< ;GET PFN AND MASTER PTE ADDRESS 


BSBW OACERCPFHSAVPTE SRELEASE PFN, SAVE PTE CONTENTS 
ADDL # [CLEAN OFF VA, PROCESS PTE 
BRB PGF COMPLETE 


ZERO PAGE, MAKE MASTER PTE VALID TOO 


BICL #°C<PTESM_PROT ! PTESM_OWN>,R1 ;MASTER PTE PROTECTION AND OWNER 
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oN NOT VALID EXCEPTION HANDLE 16-SEP-1984 00:43:02 VAX/VMS Macro v04-00 Page 25 PAC 
AGE “S$ mie} 7 90: 48:0 § EOYs. SRCJPAGEF AULT.MAR; 1 ° (9) | v04 
1047 SETIPL #IPLS$_ASTDEL jSyAnPAaLE WHILE ZEROING THE PAGE | 
os MTPR #IPLS_ASTDEL,S*#PRS | 
1948 228: 
1050 IF GT, CAS MEASURE 
31 INCL W“PMSSGL_DZROFLTS ;COUNT DEMAND ZERO PAGE FAULTS 
ee 
1055 ; see BE AWARE THAT THE FOLLOWING CLRB ASSUMES THAT BIT 8 IS NOT 
36 t weeee IN USE FOR ANY OF THE PAGE TYPE FLAGS, ETC. 
1 38 ; CLRB Ro :CLEAR OUT THE PAGE TYPE 
105 MOVCS #0, (R4),#0,#*x200, (R2) i ZERO THE PAGE, PCB ADDRESS TO R1 
1060 MOVL 4 ‘RECOVER PCB ADDRESS 
1061 SETIPL #1BLS. SYNCH SWAPPABLE WHILE COMPLETING THE FAULT 
MTP #IPL$_SYNCH user IPL 
1062 ADDL PCBSL PHD(R4) > (SP) + RE-BIAS BYTE INDEX TO PTE TO GET SVAPTE 
106 BICL3 #*C<PTESM Vv AL iD ' Ptesm A MOD 
1064 PTESM PENS, (R3) RO MOVEN. PEN MIGHT HAVE CHANGED 
1065 BISL3 RO, (SP)+, (R3) [SET PTE WITH CORRECT PROT AND OWNER 
1066 INVALID 8(§P),R2 SINVALIDATE TRANSLATION BUFFER 
MOVL 8(SP),R2 
MTPR _R2,S*#PRS_TBIS 
1067 mova = (SP), R1 :SEE IF DZRO GLOBAL 
1068 BEQL 60% ;BRANCH IF NOT, BOTH ARE ZERO 
1069 CMPL = R171, (R2) “STILL THE SAME PTE CONTENT? 
1970 BEQL o$ ‘BRANCH IF YES, NO RACE TO ZERO THE PAGE 
1078 : MORE THAN ONE PROCESS STARTED TO ZERO THIS GLOBAL DEMAND ZERO PAGE 
Wrz ; THIS PROCESS LOST THE RACE, CLEAN UP AND REFAULT. 
1075 ° EXTZV #PTESV_PFN,#PTESS_PFN, RO, RO S ISOLATE THE PFN 
1076 MOVL RO,(S “SAVE IT 
1077 MOVL  PCBSL_P ET PROCESS HEADER ADDRESS 
1078 INCW OA ePERSAY ee eRe RO} SRELEASE WSLE AND SHRCNT, BUT NOT PFN 
1079 MOVZWL eHSY _WSNEXT(R5) ,R1 sWORKING SET List IND 
1080 OVL 8 i VIRTUAL ADDRESS (LOW BITS = PAGTYP) 
1081 BSBW MMGSFREWSLX FREE THE WORKING SET LIST ENTRY 
108¢ BLBS _RO, 308 ‘BRANCH IF SUCCESSFUL 
1084 : FREWSLX COULD ONLY RETURN FAILURES STATUS | If PAGE FILE BACKING STORE 
1085 ; NEEDED TO BE RESERVED AND THERE WAS ANONE A VAILABLE. THIS PAGE ALREADY 
1086 ; HAS BACKING STORE, SO THIS CANNOT HAPPEN. 
1088 ° 
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v04 DEMAND ZERO PAGE Me 4 =1382 8: i: 98 toys. SRCJPAGEF AULT.MAR; 1 . 28 VvOé 


62. 51 50 9 StF 1 98 BISL3 RO,R1,(R2) :SET MASTER PTE VALID 
—E 10 €0 60S: ADDL #4e4, SP SCLEAN OFF 4 LONG WORDS 
4 11 ° PGF COMPLETE: 
3F) BA O06 ; 11 g #°M<RO,R1,R2,R3,R4,R5> sRESTORE THE REGISTERS 
5E 08 £9 60 18 Abbe #8,SP ;CLEAN OFF THE EXCEPTION PARAMETERS 
60B 1104 REI + AND RETURN FROM THE EXCEPTION 


PAGEF AULT 
v04=000 


NOT VALID EXCEPTION WANDLE 1 mi eh 90:43:08 ee Macro Vv04-00 
D, OR BAD PAGE LIST, RELEAS 5-SEP-1984 05:45: SYS.SRCIJPAGEF AULT .MAR; 1 


«-SBTTL FREE, MODIFIED, OR BAD PAGE LIST, RELEASE PENDING 


~s 
Po] 
m— 
“5 
“” 
oe 
3 
. Se 
oe | 
a | 
e | 
~ | 
ty 
on i 
See ee AES 


: Tuts A POULT OF orf THE FREE, MODIFIED, OR BAD PAGE LISTS 
3 = 
: O(SP) = VA (LOW Bits = PAGTYP), 4(SP) = SVAPTE 
-ENABL LSB 
PFNLIST: 
FOF" 30 MMGSREMPFN ;REMOVE PFN FROM LIST 
WRITE INPROG: 
eemateaalt > 
2 ge D ova (SP) ,R2 3R2 = VA, R3 = PTE 
047C 0 Bau MNGSAAKEUSLE iMAKE A 0 RING? SET LIST ENTRY 
52 8E D MOVa (SP)+,R ;R2=VA, R3=SVAPTE 


SET PAGE ACTIVE AND VALID 
: MOVL § @W*PFNSAL_PTECROJ,R1 —; GET MASTER PTE ADDRESS 


ASSUME PFNSV_DELCON EQ PFNSV cae eT LOC+1 ;DELCON IS 2ND BIT TO LEFT OF 
N’BETW eA IS A LOC EXPANSION 


51 Q000'DF40 00 


05 00 O7 FO #PENSC ACTIVE #PFNSV_LOC, APE S LOCs2 ;SET PAGE ACTIVE 
0000'DF40 aw*PFNSAB_STAT CLEAR {con 
00 61 «Ff £2 BBSS #PTESV vACTD. (R1), 50S Aas ae tt 
0 52 91 50S: CMPB =s«R2,, #WSC$C_GLOBAL :GLOBAL OR PAGE TABLE PAGE? 
06 18 BGEQ Ss $ ANCH IF YES 
F BA 60$: POPR #*M<RO.R1.R2.R3.R4.R5> =RESTORE SAVED REGISTERS 
5sE 08 CO ADDL #8,SP [CLEAN OFF THE EXCEPTION PARAMETERS 
02 REI [AND RETURN FROM FAUL 
; : GLOBAL PAGE OR PAGE TABLE PAGE 
08 52 91 {00$:  cMPB R2 #WSLSC_PPGTBL :PROCESS PAGE TABLE PAGE? 
16 «(18 BGEQ 1208 ‘BRANCH IF PROCESS OR GLOBAL PAGE TABLE 


? GLOBAL PAGE 


51 61 78£00000 8F CB BICL3 #*C<PTESM_VALID ! PTESM_MODIFY ! PTESM_PFN>,(R1),R1 ;MASTER PTE 


DOOOOOOSOOOSOOOSOOSOOOSOOOOOOOOOOOOCOOOOOOOOOO 


PAEXA_EXRAAA AA AA AA AAA AAAAA AAA AAAPAIOSAOAISASSOSAASS 


DDD ONLVOOOOM PHPypyn “yn PD D\ PH PH OVNI BS BW HPIM MMM OOOO IFN VWHAMAOOOOOOO COPY 


NOUS WN SO OO NAUSEA SO OO NA UE WIN O ONAN EU 0 OONIO 
— 
2 
(7) 
< 


PAA ITE BP BS BB BE BWANA WIAA AION 4 OOOO 


a ek a a a kb 2s 2 ab — > — 2) —s — 4 —) — — > —d a 2 bs 2 do 4s 4s 2 ae 
a ka a a a ak an a ak tt tk sb bs 0 ss = — 2 — 4) 2 4 4 mm 


: R1 = VALID AND PFN BITS TO STORE INTO SLAVE PTE 
age : R3 = SLAVE PTE ADDRESS 
064 8 SETSLAVEPTE: 
52 63 RO7FEEFF ef cB 64 BICL3 #*C<PTESM_PROT ! PTESM_OWN> (R3) fe PROTECTION AND OWNER FROM SLAVE 
a. 2m 2 4 0 BISL3 R1,R2,(R3) 7STORE THE NEW SLAVE PTE 

DF sO 64 1 BRB 60$ ‘AND ExIte THROUGH COMMON CODE 

63 § : PROCESS OR GLOBAL PAGE TABLE 
pp 14 06 5 120s: BGTR 608 ;BRANCH IF GLOBAL PAGE TABLE 

1 pp 6 6 PUSHL 1 [SAVE REGISTER AROUND THE CALL 
0549 30 06 BSBW HAGSDE CPHOREF [ONE LESS LOCK ON HDR SPTE 
02 BA $3 : POPR #*M<R1> SRESTOR REGISTER 
D4 63 39 BRB 6 SAND EXIT THROUGH COMMON CODE 
65 61 .OSABL LSB 
65 62 ; 


PAGEF AULT = TRANSLA 
voe=000 FREE, MOD 
658 
8 
B 
8 
658 
658 
? B 
8 
OC BA 0658 
65D 
65D 
65D 
650 
650 
i 
00000000 4C 
00000650 
open 
DY 00 
0000065D* 0000 
004 
obeee 
2000 650 
51 0000°DF40 C Re? 
066 
66 
66 
66 
66 
66 
02 52 O03 O01 EC 066 
18 19 0668 
66A 
66A 
6A 
66A 
53 C2 066A 
55 00000000' 9F 8 66D 
F9 674 
77 
77 
677 
55 6C ASOD 77 
53 ..§ 78 
; § 7 
28 
52 o4) DO 06 
02 5 
3 BA 
04 E8 


OT avai? EXCE 
R BAD PAGE 


-_—— 
ne 


OOOO 00 O00 0 0000900090900 00 090909 IN 


ee a nn a de dd a a te st tt Fh tt i 
OD NAMNE WO ODNAUE WN 0 OONO 
e@e 
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CONAN ED 


SYS.SRCJPAGEFAULT.MAR; 1 
D PAGE, RELEASE THE PFN AND ISSUE AN EXCEPTION 
5 peene ss 


ADER 
PAGE TYPE) 
PAGE TABLE ENTRY 


“on 
o-m 
AM 


“POPR = #*MCR2,R3> ;R2=VA (LOW BITS = PAGTYP), R3=SVAPTE 
PFN_REFERENCE = 


MOVZWL <@W"PFNSAx_ WSLXCRO],R1>,- GET WORKING SET LIST INDEX IF NOT G 


LONG_OPCODE=MOVL 
TRACES =s¥5 SHONPAGED 
. SAVE pOCAL BL 
-PSECT SABS a Ma 


“RESTORE 

-SAVE_PSECT LOCAL_BLOCK 
perer” ZSINITSPFN_ PTRUP. TABLE 
. ADDRESS FN 


-BYTE OP$_MOVZWL 
OPS" Mm 


.BYTE MOVL 
.RESTORE_PSECT 
MOVZWL Su PENSAx -WSLXCROJ,R1 


ASSUME PFNSC_PROCESS EQ 0 

ASSUME PFNSCISYSTEM EQ 1 
NSC_GLOBAL EQ 

ASSUME PFNSC_GBLWRT EQ 

ASSUME PFNSC_PPGTBL EQ 4 

ASSUME PFNSC"GPGTBL EQ 5 

CMPV #WSLSU_PAGTYP,#WSLS$S_PAGTYP, Ree ee GLOBAL ;IS PAGE GLOBAL? 

BLSS 208 ;BRANCH not 


; GLOBAL PAGE DOES NOT HAVE WORKING SET LIST INDEX IN WSLX ARRAY 
; MUST SCAN THE PROCESS’ WORKING SET LIST FOR THE VIRTUAL ADDRESS 


SUBL SUNBIAS SVAPTE, COULD ube »SUAPPED HERE 

MOVL OOCTT SL PHD,RS5 SUSE P1 SPACE HEADER 

BSBW MMGSSCNWSLX [SCAN FOR THE UORKING™ set LIST INDEX 

HAVE BEEN SWAPPED IN THE ABOVE ROUTINE, BUT IPL IS BACK AT SYNCH NOW 

MOVL PCBS\ _PHD(R4) ,RS ZRECOVER SYSTEM ADDRESS OF PHD 

ADDL RS,R :REBIAS PTE ADD RESS 

TSTL [SEE IF FOUND WORKING SET LIST ENTRY 

BEQL 408 [IF NOT, PAGE WENT AWAY OR SOME OTHER 

[PROCESS WAS THE ORIGINATOR OF THE 1/0 

VL (5 C81) R2 [FETCH WORKING SET LIST ENTRY 

PUSHR [SAVE VIRTUAL ADDRESS AND PTE ADDRESS 

BSBW eriai SFREE THIS ORK ING SET LIST ENTRY 

POPR #* F< mcRe AR TRECOVER VA VAPTE 

BLBS [BRANCH IF SUCCESSFUL 


ory er CAN ONLY FAIL IF PAGE FILE NEEDED TO BE ALLOCATED AND IT COULDN'T BE 
S CASE IS NOT POSSIBLE HERE. 


16S sep - 138¢ 90: tb 08 rhe Macro V04-00 Page 8 


6 7? 
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PAGEF AULT 
v04 


a 
—~ 
p+) 
z 
se 
oon 
wie 


, 
on | 
FREE, MODIFIED, OR BAD PAGE LIST, RELEAS 5-SEP-1984 03:45:49 (SYS.SRCJPAGEFAULT.MAR; 1 | vO: 
1209 BUG_CHECK FREWSLX, FATAL 
FEFF *XFEFF | 
0004" 2 194 -1IF IDN <FATAL>,<FATAL> , .WORD BUGS_FREWSLX!4 
9% 1 9 : IF THIS PAGE F AULT 1S FROM USER OR SUPER MODE THEN ISSUE A | 
Poe ! 1 : PAGE READ ERROR EXCEPTION. | 
02. 18 ED 0694 1214 0s: CMPZV #PSLSV_CURMOD,#PSL$S_CURMOD,- ;I1F FAULTING MODE IS 
02 26 AE 697 1215 FLTPSLTSP) ,APSL$C_SUPER ius str 6 
24 «+18 69, 16 BGEQ 6 408 THEN PAGE READ ERROR EXCEPTION 
69C 1218 : THIS IS A BAD SITUATION NOW, AN EXCEPTION, IN EXEC OR KERNEL MO MODE iit 
69C 1219 ; CRASH THE SYSTEM. IF THIS PAGE IS OWNED BY USER OR SUP 
69C 1 $ SUBSTITUTING A PAGE OF ZEROS. THIS SHOULD SATIStY THE eYSTER. cone WHIC 
69C 1221 ; IS ACCESSING THE PROCESS PAGE SINCE IT IS P D ABOUT USER SUPP LIED 
69C 1 ¢ 3; DATA. THE NEW PAGE WILL BE EXEC READ uRITE ED BY THE ORIGI 
d69¢ 1 : OWNER. THIS WILL RESULT IN AN ACCESS VIOLATION WHEN THE PAGE IS TOUCHED 
69¢ 4 : IN USER OR SUPER MODE. 
50 63 02 17 ~€F eee 1 $ EXTZV #PTESY OWN, #PTESS_OWN,(R3),RO ;GET THE PAGE OWNER 
02 50 01 O6Al 1 CMPL 0,#PSC$C_SUPER ZOWNED BY USER OR SUPER? 
1A 19 06A4 1228 BLSS 0 SBRANCH IF NOT, READ ERROR FOR 
6A6 1229 SA CRUCIAL PAGE, ISSUE THE PAGE 
6A6 1230 :READ ERROR EXCEPTION, DOWN WE GO. 
6A6 1231 SETIPL #IPLS_ASTDEL LOWEST POSSIBLE FAULT IPL 
12 02 DA O6A6 ' MTPR #IPLS_ASTDEL, s“uPRs. IPL 
DeAs : 5 3; FORM ARGUMENT LIST FOR CRETVA 
52 DD Deas 1235 PUSHL R2 ;VIRTUAL ADDRESS TO CREATE 
0 6AB 1 6 PUSHR #*M<RO,R2> :ANOTH ER COPY OF ADR TO FORM RANGE 
6AD 1 ACCESS MODE PAR 
01 AE 05 90 O6AD 1238 MOVB S*#PRTSC_EW,1(SP) SET DESIRED PAGE PROTECTION 
00 DD 0681 1239 PUSHL #0 LL RETURN A 
08 AE DF 0683 1240 PUSHAL 8(SP) ZADDRESS. OF RANGE TO CREATE 
00000000'GF 05 FB 06B6 1241 CALLS #5,G°MMGSCRETVA TKERNEL MODE ENTRY TO CRETVA 
D1 4¢ :PRESERY ES IPL 
6BD 124 ST RIP OFF INPUT RANGE WHEN DONE 
FF466 «31 «06BD «(1244 BRW PGF COMPLETE [FAULT THIS PAGE FROM SCRATCH 
1A AE B6 06CO 1245 40S: INCW = FLTC TL #2. ( SP) IND Tecate PAGE READ ERROR 
6c3 1 46 ACVIOLAT: 
50 26 AE 3C 06C3 124 MOVZWL Sitges RO :GET IPL FROM FAULT PSL 
6C7 1248 ENBINT SAND RESTORE IT 
12 50 DA 067 MTPR wes Stn IP 
F BA O6CA 1249 POPR “CRO, at if R3,RZ,R5> ;RESTORE REGISTERS SAVED BY PAGE FAULT 
03 6 10 €5 06CC 1250 BBCC 16 SBRANCH IF ACCESS VIOLATION 
£92" 1 0600 1 31 BRW #16, (SF) .{08 SISSUE THE EXCEPTION 
F92A" 31 O06D3 1252 108: BRW EXESACVIOLAT TACCESS VIOATION 
| 
| 


ontaag | 


PAGEF AULT = TRANSLATION NOT VALID EXCEPTION HANDLE Ig-§ S pot 984 09: 43: 08 YAX/ vis Macro v04-00 Page 30 
v04 SCANDEADPT = SCAN A DEAD PAGE TABLE FOR Pe] :4 SYS. SRCJPAGEFAULT.MAR; 1 (11) 
p ‘ .SBTTL SCANDEADPT = SCAN A DEAD PAGE TABLE FOR TRANSITION PAGES 
p : : INPUTS: 
d6 1 8 : Re IRTUAL ADDRESS OF PAGE TABLE (LOW BITS = PAGE TYPE) 
D6 1 ; R ROCESS HEADER ADDRESS 
: ! ? ; IPL Ay SYNCH 
p 62 : OUTPUTS: 
p be : NONE 
D6 1 eg SCANDEADPT: 
50 7005 6€ AS A3 606 6 SUBW3  PHDSW_PTCNTVAL(RS) ,PHDSW sAnAY bon‘ T contain Yayo PAGE TABLES 
dpc 1 63 TARE "DEAD PAGE TAB 
03 14 06D€ 1270 BGTR 108 
00 31 DE 1271 BRW 50$ ;BRANCH IF NO DEAD PAGE TABLES 
50 $¢ AS AO 061 1 re 10$:  ADDW  PHDSW_PTCNTLCK(RS),RO ADD IN THE LOCKED PAGE TABLES 
0 7% a3 AO 06E5 127 ADDW PHDSWTWSFLUID(RS),RO | :NEED TWICE FLUID EXTRA 
50 7405 AO 0669 1274 ADDW  PHDSWIWSFLUID(RS5) .RO 
50. 50 3¢ ED 1275 MOVZWL RO,R :GET IT IN A LONGWORD 
7E 50 AS FO 1 A: MOVZWL PHOSW_WSSIZE(RS),-(SP) GET CURRENT WS SIZE 
50 6f ce Fe 127 SUBL P), “SUBTRACT OUT CURRENT WSL SIZE 
6E OF AS OB AS A F7? 1 28 UBW3 PHD$W_WSLIST(RS),PHDSW_WSDYN(RS),(SP) ;GET LOCKED PORTION OF wS 
GE 3¢ O6FD 127 MOVZWL (SP), TSP) 3GET IT IN A LONGWORD 
E C0 00 1280 DL (SP)+,RO [ADD IN LOCKED ENTRY COUNT 
ae 20 81 BLSS  50$ SBRANCH IF SAF E TO POSTPONE DEAD PAGE 
50 52 00C¢8 cS 3 705 1 es SUBL3 PHDSL_POBR(RS).R2,RO  :BYTE OFFSET FROM FIRST PO pace TABLE 
9 19 0708 1284 BLSS [BRANCH IF PROCESS HEADER PAGE 
50 50 F7 er 78 70D 1285 ASHL #9, RO, RO [FORM PAGE NUMBER 
0 55 ¢ ole 1 : ADDL : [ADD IN PHD BASE 
50° 68 AS ¢O 0715 1 ADDL  PHOSL_PTWSLEVAL(RS).RO :ADD IN OFFSET TO BYTE ARRAY OF COUNTS 
0719 1 88 ;0F VALID WSLE'S IN EACH PAGE TABLE 
60 95 0719 128 TSTB = (RO) [1S THIS A DEAD PAGE TABLE 
49 «18 718 90 BGEQ 50$ [BRANCH IF NOT 
z1D 9 i : RILR2.R3 ARE PRESERVED UP TO THIS POINT 
10 AS. 3! 80 aly 34 ’ Mo mov S ntbet Bs WSNEXT (RS) UPDATE NEXT POINTER 
50 «5 8 09 EF 0725 1 % extzy #VASV_VPR, mvASS. VPN st OB AGE NUMBER OF THE PT IN SYSTEM SPACE 
FEO F (CB O72A 1 4 BICL a C<PTESA ALID™! PTESM_PFN>,- ;GET PFN AND VALID BIT 
2 809 OF gs OF8s 1999 eece. | sPTeSV. cr SPTBASE —— "LEAR VALID BRANCH IF IT WAS ELEART eee’ 
00 oD , 9 9 PUSHL #0 Peete: [FLAG FOR MODIFIED PAGE WRITER NEEDED 
738 1 ; MOVZWL <aW™PFNSAx SHRCNTCROJ, -(SP) >,- ;:NUMBER OF TRANSITION PAGES 
738 1 LONG _OPCODE= 
738 1304 IMAGE=SYS AG 
738 SAVE PSECT LOCAL _BLOCK 
ger “PSECT ZSINITSPFN_ PIRUP. TABLE 
000007 “ADDR 2 JPEN 
A “BYTE  OP$_MOVZUL 
i, Me 
0 ;RESTORE_PSECT 


— 


I 


: PAGE IS ON MODIFIED PAGE LIST 
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PAGEF AULT = TRANSLATION NOT VALID EXCEPTION HANDLE 16-SEP-1984 00:43:02 VAX/VMS Macro V04-00 Pa 1 PAI 
voe=000 SCANDEADPT = SCAN A DEAD PAGE TABLE FOR 5-SEP-1984 90:48:98 YOYS SRCIPAGEF AULT MAR: 1 ” diy vO 
7E 0000° DF 40 36 7 MOVZWL @W*PFNSAx_SHRCNTCROJ,-(SP) 
741 1305 BEQL :1F NONE, INCONSISTENT 
, Ol AA 0743 1 6 BICW  #VASM_BYTE,R2 ‘START SCANNING PT AT BEGINNING | 
bo 9A 0748 1 NOVZBL Y SAT MOST 128 PTE'S | 
50 82 782000 CB rat 1 : 208: BICL acebT TESM_VALID ! “GET THE VALID BIT 
754 1 PTESM_TYPT ! PTESM TYPO ! = ;PTE TYPE BITS 
754 1310 PTESM-PFN>, (R2)+,RO SAND’ THE PFN FROM THE PTE 
7 13 0754 131 BEQL ©: 30 ‘BRANCH IF DEMAND ZERO PAGE 
51 50 EA BF 78 0756 131 ASHL  #-PTESV_TYPO,RO,R1 SVALID, TYP1, TYPO ALL 0 IF TRANSITION 
: 1 758 131 BEQL :BRANCH IF TRANSITION PAGE 
EC F5 075D 1314 308 SOBGTR R3,208 :L00P THROUGH THE PAGE TABLE 
6 113 26 1315 BRB ALL DONE, CNT=# 1/0 REQ OUTSTANDING 
ies £6 1316 40$: BUG -CHECK SCANDEADPT ,FATAL :SPT ENTRY FOR PAGE TABLE NOT VALID 
0004" £6 TLIF IDN <FATAL>,<FATAL> , .WORD BUGS_SCANDEADPT!4 
50 (01 B0 766 50S: MOVL #1,R0 :SET CONTINUE RATHER THAN RESTART 
76A s SHRCNT FOR PAGE TABLE IS 0 
76A [DIDN'T FIND SHRCNT TRANSITION PAGES 
76A ‘BEFORE RUNNING OFF THE END OF THE PT 
Ora : THIS IS A TRANSITION PAGE 
OC 8B 076A &0$: — PUSHR #OMcR2»R R3> AVE THESE pREGISTERS 
03 OO EF 076C EXTZV #PFNSV.PAGTYP #PENSS apnstie = PAGE LOCATION 
52. 0000'DF40 076F aU“PENSAB S TATEL FROM fhe TATE BYTE 
01 52. 01 977% CMPL Re #PENSC “artpaseet Z0N MOD! Fiép D OR FREE PAGE LIST 
1A 14 0777 BGTR § RANCH IF NOT ON EITH 
OE 13 0779 BEQL 80S [BRANCH IF ON MODIFIED PAGE LIST 
178 : PAGE IS ON THE FREE PAGE LIST 
F882" 30 0778 BSBW  MMGSREMPFN LIST, REMOVE IT 
0000'DF4O0 1 8 77E BISB = #PFNSM DELCON, @W*PFNSAB_ STATECR } :FORCE DELETE CONTENTS 
F879" 7B BSBW MMGSRECPF RELEASES THE PAGE 
11 0787 BRB 90$ 
789 
789 
789 
789 
7 
7 
79 
79 
79 
79 
7A 
7 
7 
7 


a a as as ss ss as 2 ss 2 


AMAR BREE EEE SE EWAN AANA PORONOPONOPUPOPUR 


ARO OONOUES WD “OOO NAULS WN O OONOUS WN —OVOOo~ 
. 


0000'DF40 410 ~=«—88 80$:  BISB #PFNSM DELCON, aw*PFNSAB_ STATECRO} “DELETE CONTENTS AFTER WRITING 
OC AE 01 88 F BISB 1,12(SP) FLAG MODIFIED PAGE RELEASE NEEDED 
OC BA 90$:  POPR FAR R3> tRESTORE. uve REGISTERS 
C5 : 5 SOBGTR és [COUNT DOWN THE TRANSITION COUNT 
BA 100$: POPR Sar R1> [CLEAN OFF THE EXHAUSTED COUNT AND FLAG 
0 1 €9 A BLBC —_ R21, 11 [BRANCH IF NO MODIFIED PAGE WRITING 
000'CF D4 D CLRL = W°SCHSGL -REYLOLIM [MAKE SURE IT'S WRITTEN S 
000'CF 84 1 CLRW W*SCHSGL-MFYLIM [CLEAR COUNT, NOT WRITE REQUESTED FLAG 
1 C O7A5 MOVZWL #RSNS sAPCEMPTY. R1 [SET RESOURCE TO WAIT FOR 
SE 204) SC0s«O7A8 ADDL  #4,SP TRETURN TO ORIGINAL CALLER 
0 D4 7A 1108: cURL RO’ [SET FAILURE (OR RESTART) 


PAGEF AULT = TRANSLATION NOT VALID EXCEPTION” nae 16-SEP-1984 AX/VMS Macro V04-00 Pa 
voe=000 WSLEPFN = FETCH PFN FROM WORKING SET Pte g- Hiatt 1 88: 8: 9 YOYS SRCIPAGEF AULT MAR; 1 ” a 
A ¥ .SBTTL WSLEPFN = FETCH PFN FROM WORKING SET LIST ENTRY 
za 5 ; CALLING SEQUENCE: 
TA § : BSBW MMGSWSLEPFN 
ZAE : INPUTS: 
7AE 1363 : R3 = SYSTEM VIRTUAL ADDRESS OF PAGE TABLE ENTRY 
rae 64 ; FOR A PAGE THAT IS IN THE WORKING SET LIST 
7AE 1366 ; OUTPUTS: 
7A 3 
re i ‘ : RO = PFN 
rae $9 ; R2,R3 PRESERVED 
7AE 1371 WSLEPFNMSK: 
78800000 zh tg .LONG “C<PTESM_VALID ! PTESM_TYPO ! PTESM_TYP1 ! PTESM_PGFLVB> 
28 rh .ENABL LSB 
7B2 1376 MMGSWSLEPFN:: 
50 63 F9 AF cB 7B2 137 BICL3 B*WSLEPFNMSK, (R3) RO _;GET VALID, TYPO, TYP1, PFN/GPTX 
51 50 EA BF 7B? 137 #-PTESV vPO.RO.RI ;SEE IF TRANSITION OR VALID PAGE 
14 078C 137 BGTR  FRE_GBL ANCH IF NEITHER 
50 50 15 00 EF 7B 1380 10$: § EXTZV PPTESV PENN NPPTESS _PFN, nO, RO ;GET PFN 
5 rc 81 20$: RSB AND’ RETURN 
orc i : INPUTS: 
704 1385 ; RO = PAGE TABLE ENTRY WITH TYPO, TYP1 AND GPTX BITS 
704 1 $: ; R1 = RESULT OF SHIFTING RO BY -PTESV_TYPO 
704 1 ; = 1 IF PAGE IS GLOBA 
rh 1 g : 3 > 1 IF PAGE TYPE IS TNVALID FOR THIS CONTEXT 
7c $0 : OUTPUTS: 
7C4 1 9 : RO = PFN IF GLOBAL PAGE IN TRANSITION 
rch 93 : BUGCHK IF NOT 
7€4 1395 FRE _GBLTRANS: 
1351 £5 O7C4 1 %6 SOBGTR WSLVANVAL BR ANCH IF NOT GLOBAL FORMAT 
OF 50 16 «€5 O7¢7 139 BBCC pptey TYPO. RO,WSLVANVAL ;CLEAR TYPO, MUST HAVE BEEN SET 
50 0000'DF40 § €0 AF ¢ 7(B 1 38 BICL3 B*WSLEPFNMSK,aW* MMGSGL “GPHBASEL RO}. nO FETCH MASTER PTE 
51 50 EA 8F j 708 139 ASHL = #-PTESV_ yeO *RO,R MAKE SURE THIS IS IN N_TRANSITION 
E9 13 07D8 1400 BEQL 20% BR ARCH” if It IS, RO = 
7DA 1401 WSLVANVAL : 
“ie 2DA 1402 BUG_CHECK WSLVANVAL , FATAL ;WORKING SET LIST ENTRY VIRTUAL 
f606" 7DC SLIF IDN <FATAL>,<FATAL> , .WORD BUG$_WSLVANVAL !4 
7D sADDRESS 1S NOT VALID 
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EXC PTIONY MANOLE 16-SEP-1984 00:4 AX/VMS M v04-00 Pp PAC 
eeP ee ieee tpn eee lobe Beste ske FeNS eRCIBRCERutr mans: 20° FH, voe 


* -SBTTL FREWSLE - FREE A WORKING SET LIST ENTRY 
FUNCTIONAL DESCRIPTION: 


S< 
bose 


THIS ROUTINE CHOOSES A WORKING SET List ENTRY, RELEASES THE 
PAGE WHICH OCCUPIES IT (IF ANY), MARKS THE ENTRY AVAILABLE, AND 

LEAVES THE WSNEXT POINTER POINTING TO THE AVAIL ENTRY. 

IN RELEASING A PAGE, IF ITs BACKING STORE ADDRESS IS A 

‘NOT YET ALLOCATED’ PAGING FILE ADDRESS, THEN A PAGING FILE VBN 

1S ALLOCATED AT THIS TIME. IT IS POSSIBLE THAT NO VBN'S ARE AVAILABLE 
AND THUS THIS ROUTINE CAN RETURN UNSUCCESSFULLY. 


CALLING SEQUENCE: 

BSBW MMGSFREWSLE 
INPUT PARAMETERS: 

R4 = PCB ADDRESS 


R5 = PROCESS HEADER ADDRESS = MAY BE P1 SPACE ADDRESS 
IF WORKING WITH PROCESS WORKING SET LIST 


SNS SSS oo 
\~h~ 4-4-4 4A 4444 AAA AAA AAA AAA 
MMMM MMMM MMMM mernchncrncnicnicricrecricrierirricrirys 


IPL = SYNCH 
; IMPLICIT INPUTS: 
NONE 
: ; OUTPUT PARAMETERS: 

7DE IF eaees hi. 
7DE LOW te IS SET 
7DE IF NOT SUCCESSFU 
7DE RO LOW BIT IS CLEAR AND 
oe R1 = RESOURCE TO WAIT FOR (#RSNS_XXXXX) 
oe IMPLICIT OUTPUTS: 
Poe IF A WORKING SET ENTRY WAS FREED, IT IS PLACED ON THE FREE LIST 
7DE COMPLETION CODES: 
pe NONE 


SIDE EFFECTS: 
NONE 
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11 36 AS 
00000000 ' GF 
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00000000 ° GF 
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NOT VALID EXCEPTION HANDLE 16-SEP-1984 00:43:02 YAX/VMS Macro v04-00 2 4 
Aah dias sets ae oe PTS Pa | PE CS Ti Pe 


; FOR MMGSFREWSLX ENTRY POINT 
> INPUTS: 


= PAGE TYPE) 
page TABLE ENTRY 


ovI0v%< £& 


OUTPUTS: 


STATUS 
Rl = RESOURCE TO WAIT FOR IF NOT SUCCESSFUL 


FOUND AN EMPTY WORKING 
NEW PEAK WORKING SET S 


RO = GPGCNT+PPGCNT 

-ENABLE LSB 

BBC #PHDSV_WSPEAKCHK,PHDSW_FLAGS(R5),15$ ;BRANCH IF CANNOT BE 
SABOVE PREVIOUS PEAK WORKING SET SIZE 

CMPW ss RO, G*C TLSGL_WSPEAK ABOVE PREVIOUS RECORDED PEAK? 

ADDWS #1,RO,G*CTLSGL_WSPEAK YES, NEW PEAK INCLUDES THE PAGE 

[ABOUT TO BE AD ADDED TO THE WORKING SET 
15$: BBC #PHDSV_IWSPEAKCK, PHDSW FEAGS(R5) 20$ ;BRANCH IF CANNOT 
CMPW =s- RO, G*CTLSGL_IWSPEAK 


REVIOUS PEAK WORKING SET SIZE 
EaRaNEa AF nots RECORDED PEAK? 
ADDWS #1,RO,G*CTLSGL_IWSPEAK YES, NEW PEAK INCLUDES THE PAGE 
SABOUT TO BE ADDED O THE WORKING SET 


4 LIST ENTRY, CHECK WHETHER THERE IS A 


$ I 
IZE AND WHETHER SWAP AREA NEEDS TO GROW. 


eee ee eee) ee oe eS ee et ot tt tt et te ee ee ee ee eee 
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20$ MOVW = R1, PHD$W_WSNEXT (RS) UPDATE NEXT POIN ER 
CPW RO, PHDSW-SWAPSIZE(R5) 31S THERE ENOUGH ROOM TO SWAP PROCESS? 
SUBW3 PHDSW_WSLIST(RS) PHDSW_ uSAUTICRS) RO GET AUTHORIZED ,AvoTA 
CMPW © PHDSWSWAPSIZE(RS), SPACE 0 COVER QuoTA 
BGEQU ER PANEH NF Don "T NEED ANY MORE 
MOVL pcBsL_ WSSWP(R4) RO :GET BLOCK LOEATION OF Ast NALLOCATION 
BEQL ‘BRANCH IF APPING TYPE PROCESS 
MOVZWL PHDSW_SWAPSIZE(RS),R1 GET CURRENT OTe 
38 MOVZWL wi Sue seu SWPINC,R2- NEW INCREMENT 
9 ADDL R1 “NEW DESIR 
0 BSBW RNGSALLOCSWPAREA TALLOCATE A SWAP AREA, RO-RS CHANGED 
1 BLEQ [BRANCH IF ALLOCATION” FA 
; MOVL R »PCBSL_WSSWP(R4) : UPDATE SWAP FILE VBN 
MOV *PHDSW~ SWAPSIZE(RS) SAND SIZE OF AREA 
4 30S: MOVZUL aes _NORA SSUCCESSFUL RETURN INDICATION 
; 35$: BRB 10$ :GET BRANCH DESTINATION TO REACH 


ee 
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A PA( 
“SEP=-1984 00:43: AX/VMS Macro V04-00 Page 35 
vOreD0o FREUSLE ® FREE A WORKING SEF List ENTRY” ScSEPH]ORG BSsce 58 Lee eee Ot OO ast di) vO 
5 45 1509 40$:  CLRL R3 :FORCE SKIP COUNT TO ZERO 
RI “INDEX TO NEXT CANDIDATE TO DISCARD 
oR HEE INP Bilbo: Pow veestosy tran, eerie Ss GaP TP SiO ue 
AY 3 AS AS 151 SUBWS3 PHDSW7WSLIST(R5) -PHDSW-WSQUOTA(RSS ,-(SP) :GET QUOTA 
aa 1 2} 1 18 CMPW 3=s«RO, (SP) + 31S PAGE COUNT cut QUOTA OR EXTENT? 
ong 38 H SA 151 BGTRU 90$ ‘BRANCH IF GREATER THAN QUOTA TO FREE 
OE Re 83 sc 1 12 STW PCBSW_MTXCNT(R4) DOES PROCESS HOLD ANY mutex? 
wet a4 1343 a GA WSLE, 1-6. RUN a THAN WAIT 
51 OA 3 1 151 MOVZWL #RSNS_SWPFILE,R1 iR ak SOURCE ita for 
oe Be e Ht ReBe ee RETURN RESOURCE TO WAIT FOR IN R1 
67 1521 
0 83 3 ee “BUG CHEEK BADLCKWSLE FATAL ;LOCKED WORKING SET LIST ENTRY NOT PAGE TABL 
b606" Spee oT ION <FATAL>,<FATAL> , .WORD BUGS$_BADLCKWSLE!4 
OBse 1338 Mee TEER CHECK WSSIZEERR, FATAL :VALUE OF WSSIZE IS SMALLER THAN IN USE 
b50G" th TTF ION <FATAL>,<FATAL> , .WORD BUGS$_WSSIZEERR!4 
NOVAL : 
Ober 1338 ~~ BUG_CHECK WSLENOVAL, FATAL :WSL ENTRY NOT VALID 
5006" a “LIF IDN <FATAL>,<FATAL> , .WORD BUGS_WSLENOVAL !4 
0873 1528; 
: N THE DYNAMIC PORTION OF THE WORKING SET LIST 
obs 12 3 : Te suat BECA PAGE TABLE PAGE, NOTE THE CONDITION CODES ARE STILL SET 
087 13 1 : FROM THE FETCH OF THE WORKING SET LIST ENTRY. 
873 1 ; 
;BRANCH IF THIS IS NOT A P LE 
14 52 ff 8 abr 12 50s ose ANSLSV PAGTYP,R2, 60$ {BRANCH TO SKIP GLOBAL PAGE TABLE’ Paces 
—_ 30 oe 13 3 ae See fF SO RID IT OF TRANSITION PAGES. 
0E 50 EB es 1537 BLBS R0,60$ SAND NOW GET A FREE WS LIST ENTRY 
O87F 1538 MNGSFREWSLE:: = ody a ica val tedlene W ece 
“ 0098'S 3 Sbas 132 ROVveuE Pusu WSRERT CR Che) JRI ¥ i ONDER TO NEXT CANDIDATE TO DISCARD 
6533 rf asks 1342 bear SBRANCH®IF''S0,_ CHECK FOR TRULY FREE 
[STEP TO NEX 
12 AS 3] Bf gp 1302 - cH Rt PHDS$W_WSLAST(RS) ial THE END YET? 
3 se 3 } t2 SOV ZUL Pu sy WSDYN(RS) ,R1 *Bick TO THE TOP 
h, OF aa 06 99 1 13 70$: OV Ria oRe ike z WA rear 
ei OP Ie NT PAGE COUNT IN USE 
50 34 as as As al 9 a 80$ ADDuS cEBEuppacNT (Ruy abs BSW ae ‘se stort ne. ot tes 
oT oes 138 Beak Soe ei 
a is Ap 1 4 SUBW PuOBN.VS TOSCIST(RS), PHD SW _vSQUOTACR ),R2 A NUMBER OF PAGE S=1 
ra s2°° $3 A 388 1 ez CMPW RR TARE WE ai fin’ au TA NUMBER OF P AGES? 
H 
0000' CF 0000" te of $ i j BaBL” <gcHSGL_ GROWLIM, urscus SPREECNT ENOUGH FR H ORE PAGES fo” EXTEND? 
50 «(51 be 3 et i 90$: Arte 3 »R1,RO [SAVE INDEX OF Last NON-ZERO WSLE 
51 D6 O08CS 15 8 100$: INCL Ri SSTEP TO NEXT EN 


THIS WORKING SET LIST ENTRY POINTED TO A PAGE yarn A PAGE TABLE ertan 
WHICH IS NEITHER VALID NOR IN TRANSITION. THIS PAGE MUST BE A GLOBAL 
PAGE ON THE WAY IN TO MEMORY. THE GLOBAL PTE MUST BE IN TRANSITION. 


BSBW FRE_GBLTRANS ;GET PFN IF PAGE IS GLOBAL TRANSITION 


N 7 
PAGEF AULT - TRANSLATION NOT VALID EXCEPTION HANDLE 16-SEP-1984 00:43:02 VAX/VMS Macro V04-00 Page ] 
v04-000 FREWSLE = FREE A WORKING SET LIST ENTRY met 99:28:0 § Yeys. SRCJPAGEFAULT.MAR; 1 . 2) 
1205 51. 61 C7 1560 CMPW sR, PHD SW_WSLAST (RS) 3AT THE END YET? 
p 18 O8CB 156 BLEQU § 116$ ; 
51 3 A 3¢ CD 156 MOVZWL PHD$W_WSDYN(RS).R *BACK K 10 THE TOP 
4 09 ‘tf E D1 156 BLBS  W°MMGSGB_ Nero? et 110$ IF SWAPPER REQUESTED, DON'T MOVE LAST 
12 A 0 860 D6 64 MOVW RO, PHDSWIWSLAST (RS) iTuis' ie’ SAPP Br ChUsE. ER 0 WSLE'S 
52 6541 ‘OD DA 1 66 110$:  MOVL (R5)CR1],R2 RD FROM WSLE 
E3 1 DE 156 BEQL 1008 SBRANCH IF UNUSABLE FREE ENTRY 
8C : E E 1368 120$:  BLBC NOVA {BRANCH IF ENTRY NOT V 
8c 52. 05 £0 O8E3 1 $9 BBS thd to TUSLOCK,R2, 50$ SKIP E TRY IF IT IS York KED 
8E7 1570 Tow cb CODES STILL SET FROM LOAD OF R2 
08 0000" ¢F Q ' E€1 O8E7 1321 BBC S°FEXESV TBCHK, W*EXESGL_ irae. 1 BRANCH IF TBCHK NOT ENABLED 
F DA OB8ED 1 ie MTPR Ree PRS_TBC “; TEST FOR sions IN TB 
g 1C O8F 132 b$ SBRANCH IF NO VALID TRANSLATION 
98 F4 O8F2 1574 SOBGEQ RS, 60$ :SKIP PAGE UNLESS COUNT EXHAUSTED 
10 aS 51 BO O8F5 1575 130$: PHDS$W_WSNEXT(RS5) [UPDATE NEXT POINTER 
F704" 30 O8F9 1376 BSBW RAGS eUAPTE me :RETURN R = SYS VA OF PAGE TABLE ENTRY 
O8FC 157 70K FOR PROCESS PAGE TABLES AN 
O8FC 1578 SPROCESS HEADER PAGES vith PROCESS PCB ADR 
OBF¢ 1379 .DISABLE LSB 
BFC 1381 : R1 = WSLX, R2 = VA FROM WSLE, R3 = SVAPTE, R4 = PCB, RS = PHD 
15 63 1A €1 O8FC 1385 BBC #PTESV_MODIFY, (R3) -MMGSFREWSLX ajPRANCH IF PAGE NOT MODIFIED 
0900 1584 F Y NOT VALID MODIFY=0 SO BRANCH 
Q000'CF O000'CF 01 0900 1585 CMPL W°MPWSGL_WAITLIM, wescusal MFYCNT :ABOVE WAIT PROCESS THRESHOLD? 
0c 14 0907 1586 BGTR  MMGSF RANCH IF SO 
06 0000'cF 00° £0 0909 1587 BBS S*#MMGSV_NOWAIT, W*MMGSGB_ FREWELGS MCSE REW WSLX 
O90F 1588 if THIS I S SWAPPER 
51 OC 3¢ 090F 1589 MOVZWL #RSNS_MPWBUSY,R1 4s ip 2 CRESO URCE TO WAIT FOR 
50 04 0912 1590 CLRL—s RO S RETURN FAILURE INDICATION 
05 0914 1591 RSB SRETURN RESOURCE TO WAIT FOR IN R1 
0915 139¢ 
0915 159 .ENABLE LSB 
0915 1594 
0915 1595 RnGSr RENE Ss: 
51 oD O915 1396 PUSHL 1 sSAVE WSLX FOR DELETE BY WSLX 
917 1598 ASSUME PIESV MODIFY EQ PTESV_TYPI 
50 63 78800000 8F cB 0917 1599 BICL3 C<PTESM VALID ! {FETCH VALID BI 
91F 1600 Pre M_TYPT ! PTESM_ TYPO :PTE TYPE B 
O91F 1601 ESM” GPTX>, (R3) ,RO ZAND’ PFN/GPTX FROM 
0c 50 1F €4 O9IF 1208 BBSC. Opies _VALI6 RO, 10$ [BRANCH IF PTE VALI 
3 16 ; [CLEAR VALID BIT IN RO 
923 1605 ; : PAGE TABLE ENTRY NOT VALID, 
923 16 $i : PAGE IN TRANSITION AND READINPROG OR 
3 16 : GLOBAL PTE POINTING TO TRANSITION PTE 
51 50 €EA BF 78 9 1808 ASHL  #-PTESV_TYPO,RO,R1 s1F NEITHER TYP1 OR TYPO IS SET 
18 13 0928 1610 BEQL 30S ‘BRANCH TO RELEASE PAGE 
92A 1611 
92A 161 
92A 161 
92A 1614 
92A 1615 
92A 1616 


T 
ITS 
ROM PAGE TABLE ENTRY 
VALID 
T 
FE97 30 


; 


Boesve ce rae ; SLAVE Pre NO L 


BSBW ONGER LOCK 
DECSHR ONE LESS SHARER. BRANCH IF STILL IN USE 
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PAGEF AULT = TRANSLATION NOT WALID EXCEPTION HANDLE 16-SEP-1984 00:43: AX/VMS Macro V04-00 Pa 7 PAI 
v04= FREUSLE ~ FREE A WORKING SET List ENTRY. SoSEPH]ORG Oo:CS 559 Let eS tae e Ot Oe Ret oe ii, v0 
13° «11 3 D 1618 BRB 30$ ;RELEASE ACTIVE PAGE 
0750 1A €5 O90F 1 10$:  BBCC  #PTESV_MODIFY,RO,20$ | ;CLR MODIFY BIT IN RO, “BR IF CLR 
0000'DF40 ~ 80 B&F fa 933 1620 BISB #PFNSM MODIFY. aW*PFNSAB_ STATELRO) “RECORD MODIFY BIT 
934 1621 MPHSINVALIDHK:: ofe ssi ING CODE HOOKS IN HERE 
03 A384 BF «BA 093A «(16 ; 20$: BICB #<PTESM_VALID ! PTESM pobiFY>a-24 RESET VALID AND MODIFY 
93F 16 ZLEAVING fR Angi ticd PAGE F OR 1/0 TO SEE 
93F 1624 INVALID R2 TRVALIDATE TRANSLATION BUFFER 
3A 52)—ié«éiASsCéO93F MTPR  R2,S*#PR$_TBIS 
094 16 § MMGSFRE_TRYSKIP:: ;HOOK RETURN LOCATION FOR MP SUPPORT 
094 16 : ; RELEASE THIS WORKING SET LIST ENTRY 
51 9000"DF40 DO 094 1629 $0$: MOVL  aW*PFNSAL_BAKCROJ,R1 :GET BACKING STORE ADDRESS (VBN) 
$3.24 13 EQ 0968 1630 BBS = #PTESV_CHRPNT,R1 908 tte of 588 ABLE 
OA 0000'DF40 «4007 «=O «(094C «(1631 408: BBS #PENSV"MODIFY.a@W*PFNSAB_ STATE sos. std IF PAGE MODIFIED 
51 51 09 78 0953 16 g ASHL #32 PFNSS_BAK.R1,R1 ave BACKING STORE? 
0B 12 0957 16 : BNEQ {BRANCH Ge ves 
0998 163 : NULL PAGE FILE BACKING STORE ADDRESS, AND PAGE IS NOT MODIFIED 
0959 1637 NULLPGFL_NOMFY: 
0959 1638 BuG_CHECK pr Yu Der FATAL 
FEFF 0959 . WORD FEFF 
0004" Ooee 1639 “LIF IDN *EATAL>, <FATAL> , .WORD BUGS _MF YNULPGFL!4 
095D 1640 : NOW THAT WE HAVE A MODIFIED COPY OF THE PAGE IN MEMORY, NO NEED FOR OBSOLETE 
095) 1641 ; PAGE FILE COPY. 
095D 1648 
53 DD 0950 1648 S08: PUSHL R3 ;SAVE SVAPTE 
FO9E' 30 O95F 1644 BSBW RAGSDALCBAKSTORE TRELEASE OLD PAGE FILE BACKING STORE 
08 BA 0962 1645 POPR #*M<R3> TRESTORE SVAPTE 
ood bo ; PFNSAL_BAKCRO] IS ALL SET UP, RO = PFN, R2 = VA, R3 = SVAPTE (SLAVE IF GBL) | 
0964 1649 70S: ASSUME PFNSC_PROCESS EQ 0 | 
0964 1650 ASSUME PFNSC"SYSTEM EQ 1 
0964 1651 ASSUME PENSCUGLOBAL EO ¢ | 
0964 165¢ ASSUME PFNSC-GBLWRT EQ 
0964 165 ASSUME PFNSC"PPGTBL EQ 4 
0964 1654 ASSUME PFNSC“GPGTBL EQ 5 | 
02 52 03 01 EC 0964 1656 CMPV #WSLSV_PAGTYP,#WSLS$S_PAGTYP, R2  #PENSC GLOBAL :GLOBAL PAGE? 
E 1F 0969 1657 BLSSU - 130$ :BRANCH IF PROCESS OR SY 
19 368 1658 BLSS 1208 :BRANCH if PROCESS OR GLOBAL PAGE TABLE 
0960 1660 : GLOBAL PAGE - MAKE SLAVE PTE INTO GLOBAL FORMAT 
51 0000'DF4O O000'CF ¢3 096D 166¢ ; SUBL3 waeseat i GPTBASE,@W*PFNSAL_PTECROJ,R1 ;BYTE INDEX TO GPTE 
51 51 1& 9C 0976 166 ROTL :GCOBAL PAGE TABL | 
97A 1664 ASSUME PTESV 1160. EQ 0 PIESS_ GPTX’; TYPO ADJACENT TO GPTK. FIELD 
0051 16 £2 97A 1665 BBSS pPTESO TYPO ET TY eit oner GLOBAL FORMAT | 
63 17 #00 51 F 1666 80S: INSV—R1, #PTESV POpTK: APTESS _optxs, (RS) RE GPTX + TYPO IN PTE 
166 ; CHANGIN ¢ front TRANSITION TO GLOBAL | 
1668 ED 
16 
1670 


NO 


IMAGE aiete =SYS_NONPAGED 
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1 FAS A Q9A3 
51 O0000'DF41 DO O9A7 
OF 1¢ Al 15 E€O OQ9AD 
07 O00O'DF4O 07 E1 09862 
QOOO0'DF4O =1C AS) DO 0989 
51 0'DF40 0 09C0 
FF83 1 09C6 
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06 52 03 O1 ED Q9C9 
09 12 Q9CE 
51. 42 AS =—3CS(0900 
Q0000'DF41 B86 O09D4 
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0000'DF40 B87 0909 
19 13 OQ9DE 
03 18 OQ9E0 
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XCEPTION HANDLE 16-SEP-19 :02 VAX/VMS Macro V04-00 Page 3 
A WORKING SEF LAST ENTRYY SaSePo198G B9:ces5 eee eS Mec re OH OO ast ° 
« SAVE_PSECT LOCAL_BLOCK 
:PSECT ZSINITSPFN_FIRUP_TABLE 
“ADDRESS +e JPEN 
“BYTE OP$_DECW 
-BYTE OPS$~DECL 
“RESTORE PSECT 
DECW aW“PFNSAx ae 
BGTR 5 
BGEQ 0006 
BSBW ARGS SARCNTNEG 
30006$: 
167 MOVL a@W*PFNSAL_PTECROJ,R :GET MASTER PTE A 
167 BICB #<PTESM_VALID ! P atESm _MODIF Y>a@=24,3(R1) P ORM TRANSITION PTE 
1673 BRB 1S08° 7GO COUNT ONE LESS WSL REF 
1675 ; SEE IF OLD BACKING STORE ADDRESS SHOULD BE FORGOTTEN AND BAK REINITIALIZED 
1899 90$: BBS #PTESV_TYPO,R1 1008 :BRANCH IF SECTION PAGE 
1678 MOVZBL PHD$B_PAGFIL(RS), UST CHECK FOR LARGE PAGING FILE 
1679 MOVL aW“MMGSGL PAGSUPIICERIY ri :GET ADDR OF PAGE FILE CONTROL BLOCK 
1680 BBS #PTESY _CHRPNT »PELSL MAXVB BN{RI) 110$; BRAN CH If PART OF LARGE VBN 
1681 100$: BBC #PENSV-MODIFY, aW*PFNS TECROJ 110$; F UNMODIFIED PAGE 
168¢ MOVL = PHDSL PACrIL CRS) ay" PENSAL BAKER 834 Reach TABACKING STORE ADDRESS 
168 110$: MOVL  aW*PFASAL_BAKCROS,R GET BACKING STORE ADDRESS 
1684 BRW 40$ if6 f NUE 
1685 
1686 ; 
1687 : PROCESS OR GLOBAL PAGE TABLE 
1689 120s: CMPZV WSL SV, PAGTYP, #WSL$S =PAGTYP R2 .#PENSC _ PPGTBL ;PROCESS PAGE TABLE? 
1691 MOVZUL PHD$W_PHVINDEX(R5),R1 :PROCESS HEADER VECTOR INDEX 
169¢ INC @W*PHUSGL_REFCBASCR1] ADD A PROCESS HEADER REFERENCE 
169 [WHEN PROCESS PAGE TABLE IS PUT 
1694 sINTO TRANSITION STATE 
1695 130$:  DECREF EQL=140$ OUNT ONE LESS WSL REF 
DECW  aW*PFNSAW _REFCNTEROS 
BEQL 4 
BGEQ  30009$ 
BSBW MMGS$REFCNTNEG 
: 300098: 
97 : OTHER REFERENCES OUTSTANDING, COULD BE DIRECT 1/0, PAGING 1/0 
98 : IF CURRENT PAGE STATE IS ‘ACTIVE’ CHANGE IT TO "RELEASE PENDING'’ WHICH 
99 : IF REFAULTED WILL BE TRA MED BACK TO ACTIVE. 


BNEQ 
INSV 


BRB 150$ 


: RO = PFN, REFCNT = 0, 


R2 = VA, R3 = SVAPTE 


#PFNSV_LOC,#PFNSS_LOC, “ee UNLESS STATECROJ Cat ACTIVE 


S“STATE IS 


150$ AVE IT A WA 
#PFNSC_RELPEND , #PFNSV tot #PFNSS LOC, a@W*PFNSAB_S 
SOTHERWISE SET RELEASE ~pENDING STATE 


TATECRO) 


PAGEF AULT = TRANSLATION NOT VALID EXC PTION HANDLE 16-SEP-1984 00:43: AX/VMS Macro v04-00 Pa 9 PA 
yOee 08 FREWSLE = FREE A WORKING SET LIST ENTRY =3Eb- 1382 89: 3:98 YeYS. SRCJPAGEF AULT. MAR; 1 9 ta vo 
51 ee 09 ore 1518 1268, Boor RRGSRELTFN ERECOVER SAV pune 
‘9 FF 1714 "  BSBB ss MMGSDELWSLEX DELETE WORKING SET LIST ENTRY (BY INDEX) 
50 01 3¢ OAOl 1715 MOVZWL #SS$_NORMAL,RO “SUCCESSFUL RETURN INDICATION 
05 OA04 1716 RSB 
AOS 171 
A0S 1718 .DISABLE LSB 
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SET LIST ENTRY g- SE 1 3b 90:28:08 YOYS SRCJPAGEF AULT MAR: 1 . 8) 
a ~SBTTL DELWSLEX - DELETE WORKING SET LIST ENTRY BY INDEX 
; FUNCTIONAL DESCRIPTION: 


: THIS ROUTINE DELETES T 
R1, AND PLACES THE WORKING S$ 


: CALLING SEQUENCE: 


BSBW MMGSDELWSLEX 
BSBW MMGSDELWSLEPPG 


INPUT PARAMETERS: 
Ri = WORKING SET LI 
R2 = VIRTUAL ADDRES 
as FESS GPUHR 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
; RO PRESERVED 
: IMPLICIT OUTPUTS: 
; NONE 
; COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 
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E FREE LIST. 
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INDEX 
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Ss ENTERI 

L CK ADDRESS 
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TION NOT VALI ID EXCEPTION HANDLE 16-SEP-1984 AX/VMS Macro V04-00 Page 41 PA 
- DELETE wO RENE S T LIST ENTRY 5=SEP=1 198 88: rt 98 SYS.SRCJPAGEFAULT.MAR; 1 9° 16) vO 
- .ENABL LSB 
1763 MMGSDELWSLEX:: 
1764 Ov (R5)ER1] Re FETCH WOR KING SET LIST ENTRY 
1765 EXTZ2V #WSLSV_PAGTYP,#WSLSS_PAGTYP,R2,R3 ;GET THE PAGE TYPE 
17 § CASE —_ R3,,<= sAND DISPATCH ON IT 
7 30$,- SPROCESS PAGE 
1 68 45$;- [SYSTEM PAGE 
176 10$;- ‘GLOBAL READ ONLY 
17 : 10$.- [GLOBAL WRITABLE 
177 4 $.- i PROCESS PAGE TABLE 
1772 4 3 GL OBA L PAGE TABLE 
CASEW 40. $*#<<30011$-30010$5/2>= -— 
300108: 
<SIGNED_WORD  30$-30010$ 
“SIGNED-WORD 45$-30010$ 
“SIGNED-WORD  10$-30010$ 
“SIGNED"WORD  10$- 108 
IGNED“WORD 45$-30010$ 
conse “SIGNED“WORD  45$-30010$ 
1773 BUG_CHECK DELWSLEX, FATAL ;BAD PAGE TYPE 
one SLIF IDN <FATAL>,<FATAL> , .WORD BUGS_DELWSLEX!4 
1225 : GLOBAL PAGE, READ ONLY OR WRITABLE 
1999 10s BSBB = DECVALWSLECNT ;DEC VALID WORKING SET LIST ENTRY COUNT 
1778 DECW  PCBSW_GPGCNT(R4) TONE LESS GLOBAL PAGE IN WORKING SET 
1779 BRB 50$ 
7 1 PROCESS PAGE, R2 = VIRTUAL ADDRESS 
17 : AMGSDELWSLEPPG: : 
1784 508: BSBB DECVALWSLECNT ;DECREMENT VALID WORKING SET LIST ENTRY CNT 
1785 45$:  DECW PCBSw PPGCNT (R4) TONE LESS PROCESS PAGE IN WORKING SET 
17 : 50$: CLRL  (R5)CR1) [FREE THE WORKING SET LIST ENTRY 
7 RSB 
7 ; .DSABL LSB 
1791 DECVALWSLECNT: 
1798 ADDL3  PHDSL_PTWSLEVAL(R5) .R5,R3 jBAse uAPk,9 OF BYTE ARRAY OF OF AGOUNTS OF 
179% EXTV #VASV_VPN+7,#VASS _VPNe1=? VALID R2 iBITS S18. 5 OF VA sient EXTENDED 
1795 BGEQ $ : BRANCH SPACE 
1796 ADDL W°SGNSGL PTPAGCNT,R3 SEND cA IEE OF BYTE A 
1797 10$ DECB SONE LESS VALID WSLE IN M HIS PAGE TABLE 
1798 BGEQ RANCH IF PT STILL HAS OTHER VALID WSLE'S 
1299 oo DEC PHDSW_PTCNTVAL (RS) TONE LESS PT WITH VALID WSLE'S 


PAGEF AULT = TRANSLATION NOT VALID EXCEPTION HANDLE 16-SEP-1984 00:43:02 VAX/VMS Macro v04-00 Page 4 
v04 ININEWPFN = ALLOCATE AND INIT A NEW PFN mi ioets 80:28:08 SYS.SRCJPAGEFAULT.MAR; 1 . (43) 

aac : .SBTTL ININEWPFN = ALLOCATE AND INIT A NEW PFN 

Ast 4 ! FUNCTIONAL DESCRIPTION: 

Vi : : ALLOCATE A NEW PFN AND INITIALIZE THE PFN DATA BASE FOR IT 

wee : 3; AND MAKE A WORKING SET LIST ENTRY. 

aac § : CALLING SEQUENCE: 

aac iy : BSBW MMGSININEWPFN ZALLOCATE AND INIT NEW PFN 

ase 18 : INPUT PARAMETERS: 

AGC 1815: R2 = FAULT VA (LOW BITS = PAGTYP) 

AGC 1 18 : R3 = SVAPTE (SLAVE IF GLOBAL) 

AGC 1817 : R4 = PCB ADDRESS (PROCESS IF GLOBAL) 

aac 18 : RS = PROCESS HEADER ADDRESS (PROCESS IF GLOBAL) 

ASC 1820 : IMPLICIT INPUTS: 

ASC 1821; 

Ait sg one 

Asc 4 + OUTPUT PARAMETERS: 

Dade 2 : RO = PFN, OR NEGATIVE IF NONE AVAILABLE 

Asc 3 : IMPLICIT OUTPUTS: 

ASC 1829 : 

A yf oe nt 

ASC 1 : : COMPLETION CODES: 

ASC 1 3 

ey) 

Asc $ t SIDE EFFECTS: 

AGC 1837 : 

OAC 1838 : NONE 
1839 ; 
1840 ; 


— ee ee 


ee  —— 


. :4 AX/ VS 9, 404200 Page ts 
re ININEUPFN = ALLOCATE AND INIT ANEW PFA’ ‘Sesepelobe Oosceses 
AGC 1842 ININEWPFNWAIT: RESTORE, SAVED REGISTERS 
2c BA BAGE 186 + testerastammammss SAND RETURN NO FREE PAGES INDICATION 
ee i 
ASF 1846 MMGSININEWPFN:: SAVE P 
fe UR 8 NE Bore 
Ad3 186 oye 6S PEN ALLOCATE A NEW PFN 
F050 AF i A 183) BBS, BST ROG ININGWPENWALT :BRANCH I if aie AVAILABLE 
02 52 oj i ASE 1888 CaP SL iV PAGTYP,#WSLSS pact RO; APENSC GLOBAL ;GLOBAL iar 
ND 
is Age 1888 EXTiV  sPTESV_GPTX stele ger, (R3),R3 :GLOBAL PAGE TABLE I 
»5 55% cons pre bE OMB MOVAL @W*MMGSGL mid SYSTEM BROCESS HEADER ADR FOR GLOBAL 
: O'bF DE QAP 1837 a at °60s | EDONTT aCOUNT PT _REF FOR SYSTEM PAGE 
4 1 BO are 1888 40s: BBS. AVABV  SYSTEN. Re, S08 SLOCK PAGE TABLE ENTRY (NOT FOR SYSTEM) 
rreo HB ARR HD soe, ev UMPIRL ccnoy GRA TOE 
9C A 2 ROT Pese-OStaV aS tt italia es PAGE TYPE 
a aa Ag? 1 $3 BICB3 #*C<PFNSM_PAGTYP>,R2, CROSVAT eesuartés RS=PHD 
0000'DF40 «52. =F 8B gr +4 OABF 1864 POPR #*M<R2,R3-R5 

OAS] 1866 | FALL THROUGH TO MNGSMAKEWSLE 
OAS! 1866 
0A91 1867 : 


- PT mA 4 1 74 AX/VMS Macro V04-00 Page 44 
MAKEUSE MT OAKECA. WO KRING SET 104 ENTRY $78 eats vi 88: tS 9 YOYS  SRCIPAGEF AULT MAR: 1 (19) 
nt $ « .SBTTL MAKEWSLE = MAKE A WORKING SET LIST ENTRY ig 
ay! , FUNCTIONAL DESCRIPTION: as 
; NTERS SPECIFIED VIRTUAL ADDRESS INTO THE WORKING 
A i i 5 > SET Liste TT ASSUMES f FHAT THERE IS A FREE WORKING SET LIST ENTRY ON THE iy 
ae IHG | Cee blat- aft Ute Uihaeuen semble Pata ge i 
. H 
A i 1 r$ : OTS ROUTINE ALSO KEEPS THE ACTIVE PAGE COUNTERS IN THE PCB (PPGCNT, GPGCNT). + 
AS] 1899 | eu 
Ay 9 : CALLING SEQUENCE: Bu 
Ay ; ; BSBW  MMGSMAKEWSLE eu 
an , : INPUT PARAMETERS: 5 
: PAGE FRAME NUMBER 
ra i 5 : Re . vA tLow BITS = PAGTYP) sy 
AST 1889 RG = PCB ADDRESS (PROCESS IF GLOBAL) BU 
8 = 
Ao i 30 : R5 = PHD ADDRESS (PROCESS IF GLOBAL) a 
A911 3 CL 
OAs 3 : IMPLICIT INPUTS: 
ng 34 ; FREE WORKING SET LIST CONTAINS AT LEAST ONE ENTRY if 
Ag ; ; OUTPUT PARAMETERS: c 
ng 3 : RO = PFN PRESERVED a 
0A91 1900 : IMPLICIT OUTPUTS: €o 
A91 «(1901 : I 
Ao] 1908 | _ be 
0A91 1904 : COMPLETION CODES: DE 
A91 (1905 : + 
As) isto 3 
Ay 1908 : SIDE EFFECTS: D4 
A91 «(1910 : NONE 
A91 (1911 : 
0A91 1912 ;-- 
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PAGEF AULT = TRANSLATION NOT VALID EXC PTION HANDLE 16-SEP-1984 00:4 AX/VMS Macro v04-00 Page 45 PA 
voe=000 MAKEWSLE = MAKE A WORKING SET LIST ENTRY §-§ =$ eats 7 88: 8: 98 SYS.SRCJPAGEFAULT.MAR; 1 ” (20) Sy 
A91 1914 MMGSMAKEWSL a 
51 WAS 3 % 1 1318 mousut PHDSW_WSNEXT(RS) ,R1 s;WSLX FOR FREE ENTRY a 
1 i$ ASSUME sis ato. EQ 0 mM 
1A 6541 Es A? 1 18 LBS BRANCH IF ENTRY BUSY, ERROR mM 
6541 52 O01 € Ay 19 BISL3 #WSL$M "YACID. R2,(R5)CR1]°;STORE NEW WSLE = 
51 52 03 OF EF OAd 13 1 EXTZV #WSLSV_PAGTYP,#WSLSS_PAGTYP,R2,R1 ;EXTRACT THE PAGE TYPE asal 
AAS 19 j CASE = R1,< sAND DISPATCH ON IT mM 
AAS 19 O$ ‘PROCESS. PAGE a 
AAS 1926 $,- sSYSTEM PAG a 
AA 19 5 $,- ;GLOBAL READ ONLY mM 
AAS 1 $ $,- GLOBAL WRITABLE sal 
AAS 19 0$,- :PROCESS | PAGE TABLE mM 
oA 1928 70$ > GLOBA PAGE TABLE aa 
0S' 00 51. AF AA meacies CASEW R1,#0, $*#<<30013$-30012$5/ — a 
0032" AA7 . SIGNED_WORD 0$-30012$ MP 
024" OAA9 SIGNED -WORD 0$-30012$ NO 
0010" OAAB SIGNED_WORD 0$-30012$ NO 
10" OAAD SIGNED-WORD 0$-30012$ NO 
024" OAAF » SIGNED-WORD 0$-30012$ NU 
0024" 0AB1 ~SIGNED-WORD  70$-30012$ oP 
OAB3 300138: OP 
AB3 1929 BUG_CHECK MAKEWSLE FATAL BAD PAGE TYPE OR oP 
EFF OAB .WORD  “XFEFF OP 
0004' Sag “IIF IDN <FATAL>,<FATAL> , .WORD BUGS_MAKEWSLE!4 OP 
SAB? 1930 :WSNEXT POINTS TO VACID WSLE 4 
AB? 1332 : GLOBAL PAGE, READ ONLY OR WRITABLE PO 
42 10 OAB? 1934 $08: BSBB MMGSINCPTREF sLOCK THE SLAVE PAGE TABLE ENTRY 
20 10 OAB9 1935 BSBB INCVALWSLECNT :INC VALID WORKING SET LIST ENTRY COUNT 
34 AG BS thoe 1936 INCW PcBSu GPGENT(RG) _ SANOTHER GLOBAL PAGE IN WORKING SET LIST 
ABE 1938 ACBW eit woaere® aN PENS Ax _SHRCNTEROI, 80$>,- COUNT SHARER, BRANCH IF FIR 
ABE 1939 NG_OPCODE=ACB 
ABE 1940 IMAGE=SYS, NONPAGED 
AB .SAVE_PSECT LOCAL_BLOCK 
0000 ors -PSECT <SiNiTSPFN_ PT RUP. TABLE 
OOO00ABE * 1 . ADDRESS «+ JPEN 
D 018 .BYTE OP$_ACBW 
000 ABE “RESTORE PSEC 
OOOE 0000'DF40 4 01~—Ss«é01 % ABE ACB By Pi @W*PENSAx_SHRCNTCRO],80$ 
7 06«Oo AC? 1941 908" 
acy 1348 > PROCESS PAGE 
10 10 OAC9 1945 308: BSBB  -—s INC VALWSLECNT :INC VALID WORKING SET LIST ENTRY COUNT 
36 AG BS Ace 1946 $: INCW PcBSu PPGCNT(RG) _ SONE MORE ACTIVE PROCESS PAGE IN WSL 
ACE 1948 MOVW CPHOSU WSNEXT(RS) , aU" PENSAR _WSLXCROJ>,- ;SET INDEX TO WSLE 
ACE 194 LON OPCODE=M0 
ACE 1950 MAGES SYS_NONP AGED 
ace . SAVE PsECt LOCAL_BL 
0000001 -PSECT ZSINITSPFN_ PT RUP. TABLE 
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PAGEF AULT = TRANSLATION NOT VALID EXCEPTION HANDLE 16-SEP-1984 00:43:02 VAX/VMS Macro V04-00 Page PA 
voe=000" MAKEWSLE = MAKE A WOR att ft LIST ENTRY ae oty 88 18:98 SYS.SRCJPAGEFAULT.MAR; 1 ° (38) Sy 
OOOOOACE' . ADDRESS «PFN PH 
f oie BYTE OP$_MOVW. PH 
foo 010 BITE oe OP$"MOVZWL 4 
0000'DF40 10 a5 B80 OAC mOVW we AY -WSNEXT(RS) ,@W*PFNSAx WSLXCRO) PM 
AD 19 sONLY FOR PRIVATE PAGES on 
0000'DF40 6 AD 13 Os: INCW @W*PFNSAW_REFCNTCROJ yANOTHER REFERENCE FOR THE PAGE PM 
~+ BR Bele Daeg Pm 
ADB 19 § INCVALWSLECNT: PA 
53 55 68A5 C1 OAD 19 ADDL3 PHDSL_PTWSLEVAL(RS) RS, RS *BASE ADR OF BYTE ARRAY OF COUNTS OF PM 
AEO 1 g 41 WSLE'S IN GACH PAGE TABLE PM 
52 52 OF 1 EE OAEO 195 EXTV #VASV_VPN+7,#VASS_ vPNet=o" R2,R2 ;BITS 16:30 OF VA SIGN EXTENDED PM 
05 18 OAES 1960 BGEQ 108 ;BRANCH IF PO SPACE 
53 0000'CF 0 AE? 1961 ADDL W°SGNSGL _PTPAGCNT .R3 ;BASE ADR TO NEGATIVE INDEX FROM 
634 AEC 196¢ 10$ INCB = (R33) CR zANOTHER VALID WSLE IN THIS PAGE TABLE 
03 14 OAEF 196 BGTR NCH IF NOT THE FIRST 
6E A BG AF1 1964 INCW PHDSW_PTCNTVAL(RS) t ANOTHER PAGE TABLE WITH VALID WSLE'S 
OAFS 1965 20S: RSB 
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PAGEF AULT ° barnes ATION NOT ad 4 DS ithe HANDLE 16-SEP-1984 00:43:0 AX/VMS Macro V04-00 Page 47 
vousb00" LOCKPGT 1B CK PAGE TABLE =SEP-1984 88: a3: Pf: Uys. SRCIJPAGEF AULT .MAR; 1 . (21) 


oO 


K 
Ni 19 er .SBTTL LOCKPGTB = LOCK PAGE TABLE 
AF : FUNCTIONAL DESCRIPTION: 
AFS 1971 : LOCKPGTB TAKES A VIRTUAL ADDRESS, REFERENCES AND 
ARS 4 fe : LOCKS THE ASSOCIATED PAGE TABLE, AND RETU RNS THE SYSTEM 
AFS 1973 : VIRTUAL ADDRESS OF THE PAGE TABLE ENT IT IS CALLED 
- 13re z WITH IPL = ASTDEL OR LOWER AND RETURNS ‘uth IPL = SYNCH. 
AE 1976 : CALLING SEQUENCE: 
Hi 1978 : BSBW  MMGSLOCKPGTB 
Ni 19 0 : INPUT PARAMETERS: 
AF5 19 . : R2 = VIRTUAL ADDRESS 
AFS 1983 : R4 = PROCESS CONTROL BLOCK ADDRESS 
AFS 1984 : RS = PROCESS HEADER A DDRESS (P1 SPACE IF PROCESS PCB, 
OA 1985 : SYSTEM SPACE OF SYSTEM PCB) 
AF 19 $ ; IPL = ASTDEL OR LOWER 
AF5 1988 : IMPLICIT INPUTS: 
OAF5 1989 : 
Sars 1991 — 
AF 199¢ $ OUTPUT PARAMETERS: 
OAFS5 1994 : R PRESERVED 
OAF5 1995 : SYSTEM VIRTUAL ADDRESS OF PAGE TABLE ENTRY 
ar Sot re Go 
Oar 1998 : IMPLICIT OUTPUTS: 
OAS 900 : PAGE TABLE LOCKED VIA INCPTREF 
OAS 00¢ : COMPLETION CODES: 
OAF 03 ; 
wre Be : NONE 
on a : SIDE EFFECTS: 
AF 0 8: NONE 
AF 09 ; 
Re Be 
KPGTB:: 
F508" 30 OA 18 spline BSBu MMGSPTEREF :REFERENCE PTE _ GET SVAPTE 
3A 50 =—«E9 Me 15 BLBC RO, INCPTREFBUG ‘BRANCH IF LENGTH VIOLATION 
AFB 1 : FALL THROUGH TO MMGSINCPTREF 
AFB 18 ; 


ent 
-o 
zz 


MENT PAGE TABLE REFERENC 5-SEP- 
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DAD ANAS EB EE EE EEE AAA AAA AAA ATOPROPOROPONIPONININD 


Sete Ge Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Ge Se Ge Se SeGse Sse Sets Gets Gets Vstsete 
+ 


T VALID EXCEPTION” HANDLE 1 =SEP=1984 00:43:0 AX/VMS Macro V04-00 
1984 99:28:03 USYS-SRCIPAGEF AULT MAR; 1 


-SBTTL INCPTREF = INCREMENT PAGE TABLE REFERENCE COUNT 

FUNCTIONAL DESCRIPTION: 
THIS ROUTINE poecers THE aor OF A PAGE TABLE ENTRY AND 

LOCKS THE ASSOCIATED PAGE TABLE INTO MEMORY. IT ALSO MAINTAINS THE 
COUNT OF SUCH LOCKED PAGE TABLES IN THE PROCESS HEADER VECTOR. 
CALLING SEQUENCE: 

BSBW MMGSINCPTREF 
INPUT PARAMETERS: 


3 = SYSTEM VIRTUAL ADDRE 
R35 = PROCESS HEADER ADDRE 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
RO,R2,R3 PRESERVED 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 


SS OF PAGE TABL 
SS (SYSTEM IF GLOBA 


E Ay (MASTER IF GLOBAL) 


Cee E AMET = TRANSLA 
v04-0 INCPTRE 
A 
ae on: oe . 
8 
51 0000"°DF41 0 B 
3 B 
Se 0 EF OB 
0000' CF 1 01 OB 
09 14 OB 
B 
B 
B 
0B 
0B 
000000 
00000814° 00 
3D 00 
Fi 00 
aa 
0001 0000'DF41 01 01 D 0B 
05 08 
08 
08 


0000 
00000B1E" 
3¢ 
DO 
qyoo 
51 0000'DF41 C 
6541. 20 C8 
70 AS Be 
51. 42 AS C 
0000'DF41 Be 


on 
om 
on 
on 
ODNUMMIMIUVIVIVS “7 08 EMM OOS SMMmMmMmMmMMMMMMMS &&WOMM FELL EVO OOOOOCOUW 


AALAND —* — PODINIDY 8 =? = = I) I I I I  IBOOOOOOOOM™ THE 
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TION NOT VALID EXCEPTION HANDLE 16-SEP-1 AX/VMS Macro v04-00 Page 49 
- INCREMENT PAGE TABLE REFERENC g-3é EP=19 138 88: 8: 9 SYS.SRCJPAGEFAULT.MAR;1 9 (23) 
59 MMGSINCPTREF:: 
EXTZV #VASV_VPN,#VASS_VPN,R3,R1 ;GET PAGE NUMBER OF PT CONTAINING THIS PTE 
} #eeee WARNING *te*® THE FOLLOWING DEPENDS ON GPTBASE = SPTBASE 
< MOVL § @W*MMGSGL_SPTBASECR1],R1 *PTE FOR PAGE TABLE 
5 BGEQ 208 :DISASTER IF NOT VALID 
66 EXTZV #PTESV_PFN,#PTESS PFN.R1. RI :PAGE FRAME NUM BER 
CMPL R1,W°MAGSGL _MAXPFR IS THERE PFN DATABASE? 
68 BGTR i mma : NO, SKIP INCREMENT 
$3 ACBW 0s < #17 #1, a “PFNSAXx “SHRCNTER1, 10$>,- :INC SHRCNT, BRANCH IF FIRST 
71 NG_OPCODE=ACBL ~ 
072 o{RAcE=sys NONPAGED 
. SAVE_PSECT LOCAL 


BLOCK 
“PSEC” ZSINITSPFN_ETR PIRUP. TABLE 


073 5$: 
074 ; 
075 : SHARE COUNT JUST WENT FROM 0 TO 1 INDICATING THAT THE FIRST ACTIVE 
076 : PAGE TABLE ENTRY WAS JUST PLACED IN THE PAGE TABLE 
078 : ASSUMPTION HERE IS THAT THIS ROUTINE IS NOT CALLED FOR SYSTEM PAGE TABLES 
079 : THIS IS EITHER A PROCESS OR GLOBAL PAGE TABLE. 
081 10$: PFN_REFERENCE 
08¢ MOVZWL <aW®PFNSAx. WSLXCR1].R1>.- ;WORKING SET LIST INDEX 
08 ODE=MOVL,- 
2084 I GE=Sys NONPAGED 
. SAVE_PSECT CAL_BLOCK 
*PSECT PSINITSPEN. rTRUP. TABLE 
ADDRESS “PEN 
-BYTE OP$_MOVZUL 
“BYTE OP$~MOVL 
aRESTOR PSECT 
OVZWL SW*PFNSAx_WSLXCR1),R1 
085 BISt #WSLSM_WSCOCK,(R5)CR1] ;SET WORKING SET pkOCKDOWN BIT 
086 INCW PHDSW "BT TCNTACT (RS) SANOTHER ACTIVE PAGE TABLE 
087 MOVZWL PHS” PHVINDEX(RS) Rl PROCESS HEADER VECTOR INDEX 
0 : INCU a@W“PHUSGL_REFCBASCR1)] COUNT ANOTHER PAGE TABLE LOCKED 
090 ; 
31 ; PAGE TABLE PAGE WAS NOT VALID 
38 505 
9% IN tp TREFBUG: 
95 BUG__CHECK INCPTREF -EATAL :PAGE TABLE NOT VALID 
"LIF IDN <FATAL>,<FATAL> , .WORD BUGS$_INCPTREF !4 
2096 :CENGTH VIOLATION FROM LOCKPGTB 


a 
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OT VALID EXCEPTION HANDLE 16-SEP-1984 :02 VAX/VMS Macro v04-00 © 0 
CREMENTCERGE FABLE REC EREHE GaSe palope Qeicees Lene ee Here Yor TOO, = Page (30, 


P -SBTTL DECPTREF = DECREMENT PAGE TABLE REFERENCE COUNT 
FUNCTIONAL DESCRIPTION: 


THIS se OE cRenEE THE R 
CONTAINING THE PAGE TABLE ENTRY AD 
COUNT INDICATES THAT NO MORE PAGE 
HEADER VECTOR REFERENCE COUNT IS D 
FREE PAGE TABLE 


PAGEF AULT 
v0e=000 


cor 
m 
o- 
uD 
a 
> 
— 
os 


SHSHOSOHOSOOGOSOOHO DOO SO SSO ODO D DOOD DOO OD ma 


WA.AA A.A AA. AAAI AAAI WIA 


— COUNT FOR THE PAGE TABLE 

BY R 7 IF THE RESULTING REFERENCE 
TRIES ARE IN USE ROCESS 

ED AS WELL INDICATING A 


ape 


CALLING SEQUENCE: 
BSBW MMGSDECPTREF 
INPUT PARAMETERS: 
R3 = SYSTEM VIRTUAL ADDRESS OF PAGE TABLE ENTRY 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
RO,R2,R3 PRESERVED 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 


: 
8 
5 
8 
5 
8 
1 


WOODOOOVOOOVOOOVOOVOVOOOVOOOOVOOVOOOOWOOVOOOOOOOOO 


PAGEF AULT 
v04-000 


0000'DF41 
4 


0 
F4A2' 


50 


So 
So 
: 


=—WOOON NOOO -VGVIWOITWOo 


N44 ONFPOOM SLOWOWM MOS 
tttttt tt http 


51 53 000 
51 
~~ HF 


SOOPYPMNOOONMWOONUIT S&S 
=O NOM TTOWT— 


So 


COonoo 
Oo = 
So 
PAAR AANAANAAASAASMMAVIVIIUIU IU UU ROR PRP TUT 


J 
J 
SESSSSLSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESS 


4 
DUP & 


CUFWN—-O0Oean 


a a ee ee a a dd a ad ad 
NNN NIA AAAAAAAAOOUIM 


ANEW OOONAULS WN —OOOn 


2 
OR PTCNTACT WENT NEGATIVE 
i 


c 9 


30022$: 


SHARE COUNT JUST WENT TO 0, THIS PAGE 
TO REMAIN RESIDENT 
R1 = PFN FOR PAGE TABLE PAGE 


PUSHL RO 
PFN_REFERENCE 
MOVZWL <aWFPENSAx WSLXCRII, RO>,- 
LONG_OPCODE=M 
IM NAGE=SYS NONPAGED 
. SAVE_PSECT 


LOCAL_BLOCK 
-PSECT FSINITSPEN. FIRUP. TABLE 
. ADDRESS 


“BYTE OPS _MOVZUL 
-BYTE _OP$"MO 
ote PSECT 

oh SU PENSAX -WSLXCR1J ,RO 


HOV aW“MMGSGL~SYSPHD ,R4 

CRP R3,R1 

BGEQU 10 

SUBL3 W*SWPSGL_BALBASE.R3,R1 

DIVL we WSL BSLOTSZ.R1 

ASHL ;- 

BSBB ancére €PHDREF 1 

MULL  W*SWPSG MBSLOTSZ, R1 

ROTL 4#9,R 

ADDL wi supgoL BALBASE,R1 
10$:  BICL  #WSL$M_WSLOCK, (RI)CROJ 

DECW ett wattiftatit 

BLSS 

POPR #*M<RO> 


O$: RSB 
PAGE TABLE PTE NOT VALID 


0$: BUG_CHECK DECPTREF ,FATAL 


OR PAGE TABLE REFERENCE COUNT IS BAD 


- TRANSLATION NOT VALID EXCEPTION HANDL E 1 -SEP=1 :43:02 VAX/VMS Macro V04-00 Page 51 
DECPTREF = DECREMENT PAGE TABLE REFERENC 5-SEP=1 138 88: 8 9 YOrS SRCIPAGEF AULT MAR: 1 9° (35) 
| 138 MMGSDECPTREF:: 

EF 1 EXTZV #VASV_VPN,#VASS_VPN.R3,R1 ; INDEX TO SPT ENTRY FOR PAGE TABLE 
9 E 140 MOVL § aW°MMGS$GL.SPTBASECR1J,R1 FOR PAGE TABLE 

1 14 BGEQ 40% :BRANCH if NOT VALID ER OR 

EF 148 EXTZV #PTESV PEN,MPTESS PFN,RI,R1 ;PAGE FRAME ER FOR PAGE TABLE 
D1 14 CMPL = R1,W*MAGSGL_MAXPFA is THERE PFN DATA BASE FOR THIS PAGE? 
14 144 BGTR 20% SKIP DECREMENT 

145 DECSHR PFN=R1,GTR=20$,- ‘one LESS ACTIVE PTE IN THIS PT 
146 IMAGE_FLAG=SYS.NONPAGED 
. SAVE pstct L 
Q 00 -PSECT ISINLTSPFN, FIRUP_TABLE 
“ADDRESS 

8 “BYTE OP$_DECW 

D7 “BYTE OP$~DECL 

0900 -RESTORE PSECT 

8 DECW SwW*PFNSAx_SHRCNTCR1) 

14 GTR 0$ 

18 BGEQ 0022$ 

0 BSBW § MMGSSHRCNTNEG 


TABLE IS NO LONGER REQUIRED 


SAVE THIS REGISTER 
;USE IT TO HOLD THE WORK'NG SET LIST 


SADDRESS OF SYSTEM HEADER 
:PTE ADR IN SYSTEM HEADER? 
[BRANCH IF YES, GLOBAL PAGE TABLE 
SADR RELATIVE f0 BEGIN OF BAL SET 
[PROCESS HEADER INDEX 

VIDE BY PAGE SIZE 

ECREMENT PROCESS HEADER REFERENCE COUNT 
: CONVERT PROCESS HEADER INDEX 


;MULL PAGE 

10 PROCESS HEADER ADDRESS 
HUT OFF WORKING SET LOCK 

‘ONE Less ay BE PAGE TABLE 

;BRANCH RROR 

PRESTORE SAVED REGISTER 

SAND RETU 


ERROR IN DECPTREF 


—— 
2 ee 


d 9 
= TRANSLATION NOT VALID EXCEPTION HANDLE 16-SEP-1984 00:43:0 AX/VMS Macro v04-00 Pa PAC 
DECPTREF = DECREMENT Boot TABLE REFEREN ett Pi 90:28:08 EOYS SRCIPAGEFAULT MARS 1 at (38) vo4 
FEFF 9c «WORD “XFEFF 
0004" OB9E ~LIF IDN <FATAL>,<FATAL> , .WORD BUGS$_DECPTREF !4 


eel 


(26) 


Page 


v04-00 


Macro 
SYS.SRCJPAGEFAULT.MAR; 1 


AX/VMS 


6 f 


145: 


"SSEp=198e 08: 


—e 9 
ON panels 
EADER REF 


D EXCEPT! 
PROCESS H 


I 


ATION NOT VA 


DECPHDREF - DECREMEN 


= TRANS 


j 
| 
| 
| 
| 
w =< | 
ws = 
eSxs wee a 
oOo - © -OU _ 
S S028 SF Pex 
w w 
5 =42S52 [v0 ae wo 
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5 stented; Ot 
§ PHDSW_PHVINDEX(R5),R1 ;PROCESS HEADER VECTOR INDEX 
MMGSDECPHOREF1:: 
3 DECW @W*PHVSGL_REF CBASCR1) ;COUNT ONE LESS REFERENCE 
6 hy 10$ ;BRANCH IF THAT WAS THE LAST REFERENCE 
1 10$: BRW SCHSSWPWAKE ; INFORM THE SWAPPER, HEADER MAY GO 
2 ;AND RETURN TO THIS ROUTINE'S CALLER 
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AF 44 ce .SBTTL INIBLDPKT = INIT FOR CALLING BUILDPKT 

AF 46 i : FUNCTIONAL DESCRIPTION: 

AF 48 ; THIS ROUTINE SETS UP RO-R2 FOR A SINGLE PAGE READ/WRITE 
BAF 49 ; TO THE ADDRESS SPECIFIED BY THE BACKING STORE ADDRESS. 

AF 1 ; CALLING SEQUENCE: 

AF ; BSBW = MMGSINIBLDPKT 

AE 5 : INPUT PARAMETERS: 

OBAr 37 ; Re = BACKING STORE ADDRESS 
AF 8 : TABLE ENTRY ADDRESS (MASTER IF GLOBAL) 

OBAF 2259 : R5 = PROCESS HEADER ADDRESS (SYSTEM HEADER IF GLOBAL PAGE) 
AF 2260 : THIS IS ONLY USED FOR SECTION TYPE BACKING STORE ADDRESSES 
AF 2261 : If THE BACKING STORE ADDRESS IN R 1S KNOWN TO BE A 
AF 6¢ : PAGING FILE ADDRESS, THEN IT SELF DESCRIBES AND THIS 

OBAr 63 : PARAMETER IS IGNORED. 

OBA 65 : IMPLICIT INPUTS: 

OBAF ¢ : NONE 

OBAF $9 : OUTPUT PARAMETERS: 

OBAF 2271: RO = VIRTUAL BLOCK NUMBER 

OBAF 0 : Ri = SECTION OR PAGE FILE CONTROL BLOCK ADDRESS 

OBAF 2273 : Re = WINDOW ADDRES 
Ar a ; = PAGE TABLE ENTRY ADDRESS (PRESERVED) 

OBAF 2276 : IMPLICIT OUTPUTS: 

OBAF 77: 

i en 

OBAF 0 + COMPLETION CODES: 

ten : ; NONE 
AF 4 : SIDE EFFECTS: 

F 6 : NONE 
AF H 3 
AF 8 ;-- 
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voe=000" INIBLDPKT = INIT FOR CALLING BUILDPKT g- Ep. 138 90:48:98 YOYS SECIPAGEF AULT MAR: 1 . (38) 
BAF MMGSINIBLDPKT:: 
31 17 : BA BBS apr NSV $8 AK K R341 10$ | ;NOT AN I/O ADDRESS IF GBL BAK 
1 1 BE BBS #PTESV~ *BRANCH IF SECTION ADDRESS 
51 $2 1 F OBE EXTZV aPENSV" POFLK Re 20s PGFLA RZ R2,R1 ;PAGE FILE INDEX 
51 'DF41 00 OBE 94 Ov aw*MMGSGL_PAGSWPVCLR E FILE CONTROL BLOCK ADDRESS 
50° «(52 16 09 EF OBC 95 EXTZV atti PGFLVB, B.#PTESS § PEFL an »RO ;PAGE FILE VEN 
97 5 £1 OBC 3% BBC thie KPNT tet SKIP NEXT CHECK IF BIT CLEAR 
—E 1C Al D2 OBCB 209 COMI PFL LA MAXVBNCATS =(SP) At: IF ent 1S PART OF LARGE VBN 
50 gE cA BCE 98 BICL (sB)¢ =RO : TURN IT OFF IF BIT REPRESENTS CHECKPOINTIN 
2 (08 99 5$: BNEQ 40S ‘BRANCH IF GOOD VBN 
BDA 5; ; INVALID BACKING STORE ADDRESS FOR 1/0 
te aD4 10$:  BUG_CHECK LVBAKADIO FATAL s INVALID BACKING STORE ADR FOR 1/0 
0004" aD ; TL1F IDN <FATAL>,<FATAL> , .WORD BUGS$_IVBAKADIO!4 
33 } SECTION TABLE BACKING STORE ADDRESS 
52 : 32 08 7 508: socvtw “SECTION TABLE INDEX 
51 55 20 a5 C1 OF a 8 ADDL Pusat TBASOFF (RS), RS,R1_;SECTION TABLE BASE ADDRESS 
5161 ‘ OF : MOVA sSECTION TABLE ENTRY ADDRESS 
50 (53 C8 ¢ ¢ 4 2310 SUBL3 PHDSL ; gr trs). R3,RO — ;BYTE OFFSET FROM BASE OF PAGE TABLE 
50° 50 FE SF «7B A 2311 ASHL #-2,R0,RO LONG WORD INDEX FROM PAGTBL BASE 
52. 08 Al 16 09 EF F 1 EXTZV ase CSV. “VPX,#SECSS_VPX, seést VPXPFC(R1),R2 ;VIRTUAL PAGE NUMBER 
5 C2 5 13 pet SUBL  R2,R sRECATIVE PAGE IN SECTION 
15 —« ASSUME ~=SECSL_VBN EQ PFLSL_VBN 
16 ASSUME SECSL_-WINDOW EQ PFCSL_WINDOW 
50 10Aa1 CO 1 ADDL  SECS$L~VBN(R1),R sFORM FILE VBN 
52 OC Al 0 f 18 MOVL  SECS$L ~WINDOUCRTD, R2 SFILE WINDOW 
05 19 RSB 
1 30 
1 1 END 
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MMGSMAKEWSLE 4 RG PFNSC_PPGTBL = 4 
MMGSPAGEF AULT RG ade past 3 B 0 
MMGSPGFLTWAIT RG PFNSC_RDINPROG = § 
MMGSPGFLTWAIT_1 2RrR hb Mate dy = 
MG eereneee § X NSC_SYSTEM = 1 
MMGSREF CNTNEG eeeeeeee § 6X SM_BAK 3 FFFF 
MMGSRELPFN eeeeeeee =X PFNSM_DELCON = 1 
MMGSREMPEN eeereree §6X $M_GBLBAK = 
MMGSRESRCWAIT 0000039C PFNSM_LOC 5 
MMGSRLPFNSAVPTE eereneee =X NSM_MODIFY = 9 
MMGSSCNWSLX etereeee =X PFNSM_PAGTYP = 
MMGSSHRCNTNEG eeeerere =X FNSS_BAK = 17 
MMGSSVAPTECHK eererere §6X $_LOC - 
MMGSSVPCTX QO000036E RG PFNSS_PAGTYP = ; 
MMGSV_NOWAIT aeeeenee §6X FNSS_PGFL = 0 
LEPFN a4 4 8 RG PFNSV_BAK = 
MPHS INVAL I DHK 000095A RG PFNSV_COLLISION = 4 
MPWSGL_WAITLIM eeteereee §6X PFNSV_DELCON = 4 
TGLOB. 0000180 R PFNSV_GBLBAK = 0017 
NOTRANSI TION 0000154 R PFNSV_LOC a 644 
NOTSYSTEM 0000024 R 8 PFNSV_MODIFY = 44 
NULLPGF L_NOMF Y 0000959 R PFNSV_PAGTYP = 0 8 
ACBL = $495 au FNSV_PGFLX = 001 
OP$_AC = 00 ate ENLIST of R 03 
OP$_DECL = 0000 PGFSV_LENVIO = 00 . 
OP$_DECW = 00000087 PGFSV_PGTBFLT = 001 
OP$_MOVL = 4 4 PGFSV_WRTA = 5 
OPS_MOVW = One PGF COMPLETE 38 3 R 03 
OPS _MOVZWL = 444 C PGFEXIT 0 $ R 03 
ABoR 00B4 R 03 PGF MONITOR 003D R 03 
PCBSB_PRIB = 0000002F PGF MONITOR1 OQOAO R 03 
CBSL_EF WA = 0000004C PHDSB_DFPFC S 34 
PCBSL_PH = O86 f PHD$B_PAGF IL = 1F 
PCBSL_wWSS = 00 PHD$B_PGTBPFC = 0035 
PCBSW_DIOCNT = si : PHDSL_POBR = ts 
PCBSW_GPGCNT = 00 PHDSL_P1BR = D 
PCBSW_MTXCNT = 385 PHDSL_PAGEFLTS S 04C 
PCBSW_PPGCNT = 0 PHDSL_PAGF IL = 01 
PCBSW_STAT = 4 cf PHDSL_PGFLTIO = 8 
CB_SAV 0004 PHDSL_PSTBASOFF = 
PFLSB_PFC = 08 PHDSL_PTWSLEVAL = 6 
PFLSL_MAXVBN = 1 PHDSV_IWSPEAKCK = 004 
FLSL_VBN = ; 1 PHDSV_NOACCVIO = 0 
PFLSL_WINDOW a PHDSV_PF MF = 
FMSMON eeneeree =X PHOSV_WSPEAKCHK = 
PFNSAB_STATE eererere =X PHDSW_FLAG = 
FNSAB_TY eeeeeere =X PHDSW_PHVINDEX = 4 
PF NSAL_BAK eeereree § Xx PHOSW_PTCNTACT = 7 
PFNSAL_PT eeneeeee = 6X PHDSW_PTCNTLCK = 6C 
PFNSAW_REF CNT eeeeeree § xX PHDSW_PTCNTVAL S $f 
PFNSAX_SHRCNT eeneeeee = §6X PHDSW_ SWAPS! = 
X"WSL eeeeeeee =X PHDSW_WSAUT z A 
PFNSC_ACTIVE = DS$W_WSD = . 
PFNSC_GBLWRT = PHDSW_WSFLUID = 
PFNSC_GLOBAL = PHDSW_WSLA = 1 
PFNSC_GPGTBL = PHDSW_WSLIST = ° 
PFNSC_MF YPAGLST = 1 PHDSW_WSNEXT = 
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Symbol table 


FR 93 
EASEPEND $F 
: NERA aaa = Brsse 
pupeunuset ee 4 09000090 x RSNE-RPLERPTY § 
PHVSGC_REFCBAS 4 6 RSNS_APWBUSY = 
PHVREFCADR 1 ne RSNS_NPDYN f ® 135 R 03 
PMSSAL_TRANSFLT 3 ne RSNS purr it nie 
PMSSGLDPTSC + BA RSRCQAIT_ = 00000040 3 
PMS$GL “DZROFLTS 0 RG SAVABS.. > 000606 R 
pRssGtGVALID ai ScMet nace seceeee TB 
PRSSCLPREADIO 0 4 ne SCHSGL_FREECNT rae 
Paste FREAD pis seis ere a 
S$et-punitio 04 RG SCHSGL-MFYLIM qrommeee 3: 
SSCL-ROFLTS 0 3 R CHSGL_MFYLOLIM eereeeee =X 
PPcTBL” 00 28 R SCWBGL-RESRASK omens igo TB 
PRE TPC = 9000003" Stnsca-rpaus” eseren i ay 
PRS_IPC = 4 of sc $GQ°MWAIT Reeeeeee x 03 
PRET IBIS” ‘ $00 é ctise “PF WO eeneneee = X 8 03 
PRS_TBIS 4 é3 R +h + eeeeeent x 03 
sie = HS alr : Hiei 
PRTSC_EW = SECSB_ 0008 
sets a eee : Bast 
PSL$S_IPL = 000 SECSL~ = 00000016 
PSLS$V_~CURMOD = 900 1 SECSS_VPX z 494 oa 03 
PSLSV~IPL = 10000000 SECSV-VPX 00 x 03 
PTESACDERO = bosterrr SGNEGL BAL SETCT aaonenen K 03 
~GPTX 4000000 NSGL_PTPAGC eerreeee 
PTESR-RODIFY 07809000 SCNSGU_USLINSKP ie ; 901 
TESM- 2 g¢s 001 
PTESATPGFLVB ° 78000000 $35 RORRAL ‘ 090000 2 
TESM~PROT = 004 STA x 03 
PIESMTTYPS - eh 00 SUPSGL _BALBASE eseenene x 05 
- = 2 rte 
PIERS OPTA = 9000000 SuPscu~SuPINC 00000042 R03 
PTESS"OUN = 0000001 SYSTEMSPACE = 00000001 03 
HEE : HBssei Rati SH 
PTESV_CHKPNT s 19 TRY_TO_CLUS : 0 900¢ 
PTESV_CRF ve 00 wien BYTE s 15 
PTESV DERO : 1A VASSIVPN = 1E 
PTESVGPTX | . 17 vAgS ut ; 1F 
4b} Ady : VASV~SYSTEM 09 
PTESUTPEN ; 09 VASV-VPN 1R 03 
PTESV_PGF vB z 18 VALIO 
= 
PTESV~TYP1 1F : 8 
t+ ae ae R ott set . FR 03 
QUEUE PAGE READ $28 8 WRITETNPROG 
READ INPROG 
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PSECT name Allocation PSECT No. Attributes 


- ABS . 00000000 ¢ 0.) CON LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 0000004C ¢ ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$210 00000040 ¢ ( ¢°3 NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
SMMGSCOD 4954583 9 ( ¢ 3.) LCL NOSHR EXE RD WRT NOVEC LONG 
ZSINITSPFN_F IXUP_TABLE 00000036 ¢ ( 4.) LCL NOSHR EXE RD WRT NOVEC BYTE 
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WSLSV-VALID 
WSL$V-WSLOCK 
WSLENOVAL 
WSLEPFNMSK 
WSLVANVAL 
WSSIZEERR 
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Phase Page faults CPU Time Elapsed Time 
Initialization 31 
Command processing is 


1 
Pass 1 1 
Symbol table sort 0 
Pass 2 414 
Symbol table output 1 
Psect synopsis output 0 
Cross-reference output 0 
Assembler run totals 1140 


Sooooooooo 

Sooooococo[eo 

Goon —oo 
xe 

MOONS WOUO 

Aor s@cncc—W 

Cooooooo 


Ht ygrking set Limit was 2100 pages. 

152632 bytes (299 pages) of virtual memory were used to buffer ghe intermediate cod 

There were 100 pages of symbol table space oi yecatee to hold 1753 non-local and 129 
21 source Lines were read in Pass 1, produc ing object records in Pass 2 

9 pages of virtual memory were used to define 56 macros. 


e. 
local symbols. 
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er 


! Macro Library statistics ! 


Seer eran nen enon een emeaw $ 


Macro Library name Macros defined 
$255SDUA B: SYS.OBJJLIB.MLB;1 20 
$255$DUA28:(SYSLIBISTARL MLB; 2 1 

vefhcs (all libraries) 3 


1851 GETS were required to define 33 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:PAGEF AULT/OBJ=0BJ$:PAGEFAULT MSRC$:PAGEF AULT/UPDATE=(ENHS$:PAccFAULT) +EXECMLS$/LIB 
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